(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    423596,      10585]
NotebookOptionsPosition[    420539,      10504]
NotebookOutlinePosition[    420949,      10521]
CellTagsIndexPosition[    420906,      10518]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.527963001340567*^9, 3.527963007502578*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.527963010747384*^9, 3.5279630116989856`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"THREE", " ", 
    RowBox[{"PERIODS", " ", "--"}], " ", "WORKS"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ZA", "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"A", "+", 
       RowBox[{"D", "*", "Q1"}], "+", 
       RowBox[{"p", "*", "D", "*", 
        RowBox[{"(", 
         RowBox[{"A", "-", "B"}], ")"}]}], "+", "Y2"}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"D", "^", 
        RowBox[{"{", "2", "}"}]}]}], ")"}]}]}], "\[IndentingNewLine]", 
   RowBox[{"ZB", "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"B", "+", 
       RowBox[{"D", "*", "Q1"}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}], "*", "D", "*", 
        RowBox[{"(", 
         RowBox[{"B", "-", "A"}], ")"}]}], "+", "Y2"}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"D", "^", 
        RowBox[{"{", "2", "}"}]}]}], ")"}]}]}], "\[IndentingNewLine]", 
   RowBox[{"UA", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"A", "+", "Y1"}], ")"}], "*", "Q1"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"A", "+", "Y2"}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "p"}], ")"}], "*", 
         RowBox[{"(", "ZA", ")"}]}], "+", 
        RowBox[{"p", "*", 
         RowBox[{"(", "ZB", ")"}]}]}], ")"}]}], "-", 
     RowBox[{"0.5", "*", 
      RowBox[{"Q1", "^", 
       RowBox[{"{", "2", "}"}]}]}], "-", 
     RowBox[{"0.5", "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "p"}], ")"}], "*", 
         RowBox[{"ZA", "^", 
          RowBox[{"{", "2", "}"}]}]}], "+", 
        RowBox[{"p", "*", 
         RowBox[{"ZB", "^", 
          RowBox[{"{", "2", "}"}]}]}]}], ")"}]}]}]}], "\[IndentingNewLine]", 
   RowBox[{"UB", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"B", "+", "Y1"}], ")"}], "*", "Q1"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"B", "+", "Y2"}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "p"}], ")"}], "*", 
         RowBox[{"(", "ZA", ")"}]}], "+", 
        RowBox[{"p", "*", 
         RowBox[{"(", "ZB", ")"}]}]}], ")"}]}], "-", 
     RowBox[{"0.5", "*", 
      RowBox[{"Q1", "^", 
       RowBox[{"{", "2", "}"}]}]}], "-", 
     RowBox[{"0.5", "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "p"}], ")"}], "*", 
         RowBox[{"ZA", "^", 
          RowBox[{"{", "2", "}"}]}]}], "+", 
        RowBox[{"p", "*", 
         RowBox[{"ZB", "^", 
          RowBox[{"{", "2", "}"}]}]}]}], ")"}]}]}]}], "\[IndentingNewLine]", 
   RowBox[{"DUA", "=", 
    RowBox[{"D", "[", 
     RowBox[{"UA", ",", "Q1"}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"DUB", "=", 
    RowBox[{"D", "[", 
     RowBox[{"UB", ",", "Q1"}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"SOLA", "=", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{"DUA", "\[Equal]", "0"}], ",", "Q1"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"SOLB", "=", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{"DUB", "\[Equal]", "0"}], ",", "Q1"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"SOLASIMP", "=", 
    RowBox[{"Simplify", "[", "SOLA", "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"SOLBSIMP", "=", 
    RowBox[{"Simplify", "[", "SOLB", "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"Simplify", "[", 
    RowBox[{"D", "[", 
     RowBox[{"SOLASIMP", ",", "Y1"}], "]"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Simplify", "[", 
    RowBox[{"D", "[", 
     RowBox[{"SOLASIMP", ",", "p"}], "]"}], "]"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.527962800131414*^9, 3.527963036254429*^9}, {
   3.527963092399927*^9, 3.5279631153319674`*^9}, {3.527963169028262*^9, 
   3.5279632023187203`*^9}, {3.527963234454777*^9, 3.5279632624880257`*^9}, {
   3.5279633647772737`*^9, 3.5279633749640913`*^9}, {3.5283855358867145`*^9, 
   3.528385748421488*^9}, {3.528385825579223*^9, 3.5283858279660273`*^9}, {
   3.5283858838609257`*^9, 3.5283858924721403`*^9}, 3.5283859327514114`*^9, {
   3.5283860342617893`*^9, 3.5283860702198524`*^9}, {3.528386141872779*^9, 
   3.5283861890004616`*^9}, {3.5283863841880045`*^9, 3.528386426651279*^9}, {
   3.528386543791885*^9, 3.5283865549927044`*^9}, 3.5283866033371897`*^9, {
   3.5283869337301693`*^9, 3.528386934962572*^9}, {3.528812329646157*^9, 
   3.5288123381169715`*^9}, {3.52881242801993*^9, 3.5288124366155443`*^9}, {
   3.5288129353484206`*^9, 3.528812978763297*^9}, {3.5288140996027856`*^9, 
   3.528814115733214*^9}, {3.528814150490075*^9, 3.528814173531316*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  FractionBox[
   RowBox[{"A", "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"A", "-", "B"}], ")"}], " ", "D", " ", "p"}], "+", 
    RowBox[{"D", " ", "Q1"}], "+", "Y2"}], 
   RowBox[{"1", "+", 
    SuperscriptBox["D", "2"]}]], "}"}]], "Output",
 CellChangeTimes->{
  3.528809206488367*^9, 3.5288123453397846`*^9, 3.528812437988347*^9, 
   3.5288129483588433`*^9, {3.528814116575616*^9, 3.5288141743737173`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  FractionBox[
   RowBox[{"B", "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "A"}], "+", "B"}], ")"}], " ", "D", " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", "p"}], ")"}]}], "+", 
    RowBox[{"D", " ", "Q1"}], "+", "Y2"}], 
   RowBox[{"1", "+", 
    SuperscriptBox["D", "2"]}]], "}"}]], "Output",
 CellChangeTimes->{
  3.528809206488367*^9, 3.5288123453397846`*^9, 3.528812437988347*^9, 
   3.5288129483588433`*^9, {3.528814116575616*^9, 3.5288141743737173`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "0.5`"}], " ", 
    SuperscriptBox["Q1", "2"]}], "+", 
   RowBox[{"Q1", " ", 
    RowBox[{"(", 
     RowBox[{"A", "+", "Y1"}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"A", "+", "Y2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"p", " ", 
        RowBox[{"(", 
         RowBox[{"B", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "A"}], "+", "B"}], ")"}], " ", "D", " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", "p"}], ")"}]}], "+", 
          RowBox[{"D", " ", "Q1"}], "+", "Y2"}], ")"}]}], 
       RowBox[{"1", "+", 
        SuperscriptBox["D", "2"]}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"A", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"A", "-", "B"}], ")"}], " ", "D", " ", "p"}], "+", 
          RowBox[{"D", " ", "Q1"}], "+", "Y2"}], ")"}]}], 
       RowBox[{"1", "+", 
        SuperscriptBox["D", "2"]}]]}], ")"}]}], "-", 
   RowBox[{"0.5`", " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"p", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"B", "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "A"}], "+", "B"}], ")"}], " ", "D", " ", 
            RowBox[{"(", 
             RowBox[{"1", "-", "p"}], ")"}]}], "+", 
           RowBox[{"D", " ", "Q1"}], "+", "Y2"}], ")"}], "2"]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          SuperscriptBox["D", "2"]}], ")"}], "2"]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"A", "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"A", "-", "B"}], ")"}], " ", "D", " ", "p"}], "+", 
           RowBox[{"D", " ", "Q1"}], "+", "Y2"}], ")"}], "2"]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          SuperscriptBox["D", "2"]}], ")"}], "2"]]}], ")"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.528809206488367*^9, 3.5288123453397846`*^9, 3.528812437988347*^9, 
   3.5288129483588433`*^9, {3.528814116575616*^9, 3.5288141743737173`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "0.5`"}], " ", 
    SuperscriptBox["Q1", "2"]}], "+", 
   RowBox[{"Q1", " ", 
    RowBox[{"(", 
     RowBox[{"B", "+", "Y1"}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"B", "+", "Y2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"p", " ", 
        RowBox[{"(", 
         RowBox[{"B", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "A"}], "+", "B"}], ")"}], " ", "D", " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", "p"}], ")"}]}], "+", 
          RowBox[{"D", " ", "Q1"}], "+", "Y2"}], ")"}]}], 
       RowBox[{"1", "+", 
        SuperscriptBox["D", "2"]}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"A", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"A", "-", "B"}], ")"}], " ", "D", " ", "p"}], "+", 
          RowBox[{"D", " ", "Q1"}], "+", "Y2"}], ")"}]}], 
       RowBox[{"1", "+", 
        SuperscriptBox["D", "2"]}]]}], ")"}]}], "-", 
   RowBox[{"0.5`", " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"p", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"B", "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "A"}], "+", "B"}], ")"}], " ", "D", " ", 
            RowBox[{"(", 
             RowBox[{"1", "-", "p"}], ")"}]}], "+", 
           RowBox[{"D", " ", "Q1"}], "+", "Y2"}], ")"}], "2"]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          SuperscriptBox["D", "2"]}], ")"}], "2"]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"A", "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"A", "-", "B"}], ")"}], " ", "D", " ", "p"}], "+", 
           RowBox[{"D", " ", "Q1"}], "+", "Y2"}], ")"}], "2"]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          SuperscriptBox["D", "2"]}], ")"}], "2"]]}], ")"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.528809206488367*^9, 3.5288123453397846`*^9, 3.528812437988347*^9, 
   3.5288129483588433`*^9, {3.528814116575616*^9, 3.5288141743893175`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"A", "-", 
   RowBox[{"1.`", " ", "Q1"}], "+", "Y1", "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"D", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}]}], 
       RowBox[{"1", "+", 
        SuperscriptBox["D", "2"]}]], "+", 
      FractionBox[
       RowBox[{"D", " ", "p"}], 
       RowBox[{"1", "+", 
        SuperscriptBox["D", "2"]}]]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"A", "+", "Y2"}], ")"}]}], "-", 
   RowBox[{"0.5`", " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"2", " ", "D", " ", "p", " ", 
        RowBox[{"(", 
         RowBox[{"B", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "A"}], "+", "B"}], ")"}], " ", "D", " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", "p"}], ")"}]}], "+", 
          RowBox[{"D", " ", "Q1"}], "+", "Y2"}], ")"}]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          SuperscriptBox["D", "2"]}], ")"}], "2"]], "+", 
      FractionBox[
       RowBox[{"2", " ", "D", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"A", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"A", "-", "B"}], ")"}], " ", "D", " ", "p"}], "+", 
          RowBox[{"D", " ", "Q1"}], "+", "Y2"}], ")"}]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          SuperscriptBox["D", "2"]}], ")"}], "2"]]}], ")"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.528809206488367*^9, 3.5288123453397846`*^9, 3.528812437988347*^9, 
   3.5288129483588433`*^9, {3.528814116575616*^9, 3.5288141744049172`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"B", "-", 
   RowBox[{"1.`", " ", "Q1"}], "+", "Y1", "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"D", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}]}], 
       RowBox[{"1", "+", 
        SuperscriptBox["D", "2"]}]], "+", 
      FractionBox[
       RowBox[{"D", " ", "p"}], 
       RowBox[{"1", "+", 
        SuperscriptBox["D", "2"]}]]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"B", "+", "Y2"}], ")"}]}], "-", 
   RowBox[{"0.5`", " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"2", " ", "D", " ", "p", " ", 
        RowBox[{"(", 
         RowBox[{"B", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "A"}], "+", "B"}], ")"}], " ", "D", " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", "p"}], ")"}]}], "+", 
          RowBox[{"D", " ", "Q1"}], "+", "Y2"}], ")"}]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          SuperscriptBox["D", "2"]}], ")"}], "2"]], "+", 
      FractionBox[
       RowBox[{"2", " ", "D", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"A", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"A", "-", "B"}], ")"}], " ", "D", " ", "p"}], "+", 
          RowBox[{"D", " ", "Q1"}], "+", "Y2"}], ")"}]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          SuperscriptBox["D", "2"]}], ")"}], "2"]]}], ")"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.528809206488367*^9, 3.5288123453397846`*^9, 3.528812437988347*^9, 
   3.5288129483588433`*^9, {3.528814116575616*^9, 3.528814174436117*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"Q1", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{
       RowBox[{"-", "1.`"}], " ", "A"}], "+", 
      FractionBox[
       RowBox[{"1.`", " ", "A", " ", "D", " ", 
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "-", 
          RowBox[{"1.`", " ", "p"}]}], ")"}]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "+", 
          SuperscriptBox["D", "2"]}], ")"}], "2"]], "+", 
      FractionBox[
       RowBox[{"1.`", " ", "B", " ", "D", " ", "p"}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "+", 
          SuperscriptBox["D", "2"]}], ")"}], "2"]], "+", 
      FractionBox[
       RowBox[{"1.`", " ", 
        RowBox[{"(", 
         RowBox[{"A", "-", 
          RowBox[{"1.`", " ", "B"}]}], ")"}], " ", 
        SuperscriptBox["D", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "-", 
          RowBox[{"1.`", " ", "p"}]}], ")"}], " ", "p"}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "+", 
          SuperscriptBox["D", "2"]}], ")"}], "2"]], "+", 
      FractionBox[
       RowBox[{"1.`", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "1.`"}], " ", "A"}], "+", "B"}], ")"}], " ", 
        SuperscriptBox["D", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "-", 
          RowBox[{"1.`", " ", "p"}]}], ")"}], " ", "p"}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "+", 
          SuperscriptBox["D", "2"]}], ")"}], "2"]], "-", 
      RowBox[{"1.`", " ", "Y1"}], "+", 
      FractionBox[
       RowBox[{"1.`", " ", "D", " ", 
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "-", 
          RowBox[{"1.`", " ", "p"}]}], ")"}], " ", "Y2"}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "+", 
          SuperscriptBox["D", "2"]}], ")"}], "2"]], "+", 
      FractionBox[
       RowBox[{"1.`", " ", "D", " ", "p", " ", "Y2"}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "+", 
          SuperscriptBox["D", "2"]}], ")"}], "2"]], "-", 
      RowBox[{"1.`", " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{"D", " ", 
           RowBox[{"(", 
            RowBox[{"1.`", "\[InvisibleSpace]", "-", 
             RowBox[{"1.`", " ", "p"}]}], ")"}]}], 
          RowBox[{"1.`", "\[InvisibleSpace]", "+", 
           SuperscriptBox["D", "2"]}]], "+", 
         FractionBox[
          RowBox[{"D", " ", "p"}], 
          RowBox[{"1.`", "\[InvisibleSpace]", "+", 
           SuperscriptBox["D", "2"]}]]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"A", "+", "Y2"}], ")"}]}]}], 
     RowBox[{
      RowBox[{"-", "1.`"}], "-", 
      FractionBox[
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "-", 
          RowBox[{"1.`", " ", "p"}]}], ")"}]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "+", 
          SuperscriptBox["D", "2"]}], ")"}], "2"]], "-", 
      FractionBox[
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "2"], " ", "p"}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "+", 
          SuperscriptBox["D", "2"]}], ")"}], "2"]]}]]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.528809206488367*^9, 3.5288123453397846`*^9, 3.528812437988347*^9, 
   3.5288129483588433`*^9, {3.528814116575616*^9, 3.5288141744517174`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"Q1", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{
       RowBox[{"-", "1.`"}], " ", "B"}], "+", 
      FractionBox[
       RowBox[{"1.`", " ", "A", " ", "D", " ", 
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "-", 
          RowBox[{"1.`", " ", "p"}]}], ")"}]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "+", 
          SuperscriptBox["D", "2"]}], ")"}], "2"]], "+", 
      FractionBox[
       RowBox[{"1.`", " ", "B", " ", "D", " ", "p"}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "+", 
          SuperscriptBox["D", "2"]}], ")"}], "2"]], "+", 
      FractionBox[
       RowBox[{"1.`", " ", 
        RowBox[{"(", 
         RowBox[{"A", "-", 
          RowBox[{"1.`", " ", "B"}]}], ")"}], " ", 
        SuperscriptBox["D", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "-", 
          RowBox[{"1.`", " ", "p"}]}], ")"}], " ", "p"}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "+", 
          SuperscriptBox["D", "2"]}], ")"}], "2"]], "+", 
      FractionBox[
       RowBox[{"1.`", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "1.`"}], " ", "A"}], "+", "B"}], ")"}], " ", 
        SuperscriptBox["D", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "-", 
          RowBox[{"1.`", " ", "p"}]}], ")"}], " ", "p"}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "+", 
          SuperscriptBox["D", "2"]}], ")"}], "2"]], "-", 
      RowBox[{"1.`", " ", "Y1"}], "+", 
      FractionBox[
       RowBox[{"1.`", " ", "D", " ", 
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "-", 
          RowBox[{"1.`", " ", "p"}]}], ")"}], " ", "Y2"}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "+", 
          SuperscriptBox["D", "2"]}], ")"}], "2"]], "+", 
      FractionBox[
       RowBox[{"1.`", " ", "D", " ", "p", " ", "Y2"}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "+", 
          SuperscriptBox["D", "2"]}], ")"}], "2"]], "-", 
      RowBox[{"1.`", " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{"D", " ", 
           RowBox[{"(", 
            RowBox[{"1.`", "\[InvisibleSpace]", "-", 
             RowBox[{"1.`", " ", "p"}]}], ")"}]}], 
          RowBox[{"1.`", "\[InvisibleSpace]", "+", 
           SuperscriptBox["D", "2"]}]], "+", 
         FractionBox[
          RowBox[{"D", " ", "p"}], 
          RowBox[{"1.`", "\[InvisibleSpace]", "+", 
           SuperscriptBox["D", "2"]}]]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"B", "+", "Y2"}], ")"}]}]}], 
     RowBox[{
      RowBox[{"-", "1.`"}], "-", 
      FractionBox[
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "-", 
          RowBox[{"1.`", " ", "p"}]}], ")"}]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "+", 
          SuperscriptBox["D", "2"]}], ")"}], "2"]], "-", 
      FractionBox[
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "2"], " ", "p"}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "+", 
          SuperscriptBox["D", "2"]}], ")"}], "2"]]}]]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.528809206488367*^9, 3.5288123453397846`*^9, 3.528812437988347*^9, 
   3.5288129483588433`*^9, {3.528814116575616*^9, 3.5288141744829173`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"Q1", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"A", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1.`"}], "-", 
         RowBox[{"1.`", " ", 
          SuperscriptBox["D", "3"]}], "-", 
         RowBox[{"1.`", " ", 
          SuperscriptBox["D", "4"]}], "-", 
         RowBox[{"1.`", " ", "D", " ", "p"}], "+", 
         RowBox[{
          SuperscriptBox["D", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "2.`"}], "+", 
            RowBox[{"0.`", " ", "p"}], "+", 
            RowBox[{"0.`", " ", 
             SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
      RowBox[{"B", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"1.`", " ", "D", " ", "p"}], "+", 
         RowBox[{
          SuperscriptBox["D", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"0.`", " ", "p"}], "+", 
            RowBox[{"0.`", " ", 
             SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], "-", 
      RowBox[{"1.`", " ", "Y1"}], "-", 
      RowBox[{"2.`", " ", 
       SuperscriptBox["D", "2"], " ", "Y1"}], "-", 
      RowBox[{"1.`", " ", 
       SuperscriptBox["D", "4"], " ", "Y1"}], "-", 
      RowBox[{"1.`", " ", 
       SuperscriptBox["D", "3"], " ", "Y2"}], "+", 
      RowBox[{"0.`", " ", "D", " ", "p", " ", "Y2"}]}], 
     RowBox[{
      RowBox[{"-", "1.`"}], "-", 
      RowBox[{"1.`", " ", 
       SuperscriptBox["D", "4"]}], "+", 
      RowBox[{
       SuperscriptBox["D", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "3.`"}], "+", 
         RowBox[{"0.`", " ", "p"}]}], ")"}]}]}]]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.528809206488367*^9, 3.5288123453397846`*^9, 3.528812437988347*^9, 
   3.5288129483588433`*^9, {3.528814116575616*^9, 3.5288141745141172`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"Q1", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"B", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1.`"}], "-", 
         RowBox[{"1.`", " ", 
          SuperscriptBox["D", "3"]}], "-", 
         RowBox[{"1.`", " ", 
          SuperscriptBox["D", "4"]}], "+", 
         RowBox[{"D", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1.`"}], "+", 
            RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["D", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "2.`"}], "+", 
            RowBox[{"0.`", " ", "p"}], "+", 
            RowBox[{"0.`", " ", 
             SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
      RowBox[{"A", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D", " ", 
          RowBox[{"(", 
           RowBox[{"1.`", "\[InvisibleSpace]", "-", 
            RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["D", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"0.`", " ", "p"}], "+", 
            RowBox[{"0.`", " ", 
             SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], "-", 
      RowBox[{"1.`", " ", "Y1"}], "-", 
      RowBox[{"2.`", " ", 
       SuperscriptBox["D", "2"], " ", "Y1"}], "-", 
      RowBox[{"1.`", " ", 
       SuperscriptBox["D", "4"], " ", "Y1"}], "-", 
      RowBox[{"1.`", " ", 
       SuperscriptBox["D", "3"], " ", "Y2"}], "+", 
      RowBox[{"0.`", " ", "D", " ", "p", " ", "Y2"}]}], 
     RowBox[{
      RowBox[{"-", "1.`"}], "-", 
      RowBox[{"1.`", " ", 
       SuperscriptBox["D", "4"]}], "+", 
      RowBox[{
       SuperscriptBox["D", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "3.`"}], "+", 
         RowBox[{"0.`", " ", "p"}]}], ")"}]}]}]]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.528809206488367*^9, 3.5288123453397846`*^9, 3.528812437988347*^9, 
   3.5288129483588433`*^9, {3.528814116575616*^9, 3.5288141745453176`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"0", "\[Rule]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"1.`", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "+", 
          SuperscriptBox["D", "2"]}], ")"}], "2"]}], 
      RowBox[{
       RowBox[{"-", "1.`"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "4"]}], "+", 
       RowBox[{
        SuperscriptBox["D", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "3.`"}], "+", 
          RowBox[{"0.`", " ", "p"}]}], ")"}]}]}]]}]}], "}"}], "}"}]], "Output",\

 CellChangeTimes->{
  3.528809206488367*^9, 3.5288123453397846`*^9, 3.528812437988347*^9, 
   3.5288129483588433`*^9, {3.528814116575616*^9, 3.528814174576517*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"0", "\[Rule]", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"A", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "1.`"}], " ", "D"}], "+", 
          RowBox[{
           SuperscriptBox["D", "2"], " ", 
           RowBox[{"(", 
            RowBox[{"0.`", "\[InvisibleSpace]", "+", 
             RowBox[{"0.`", " ", "p"}]}], ")"}]}]}], ")"}]}], "+", 
       RowBox[{"B", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"1.`", " ", "D"}], "+", 
          RowBox[{
           SuperscriptBox["D", "2"], " ", 
           RowBox[{"(", 
            RowBox[{"0.`", "\[InvisibleSpace]", "+", 
             RowBox[{"0.`", " ", "p"}]}], ")"}]}]}], ")"}]}], "+", 
       RowBox[{"0.`", " ", "D", " ", "Y2"}]}], 
      RowBox[{
       RowBox[{"-", "1.`"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "4"]}], "+", 
       RowBox[{
        SuperscriptBox["D", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "3.`"}], "+", 
          RowBox[{"0.`", " ", "p"}]}], ")"}]}]}]], "+", 
     FractionBox[
      RowBox[{"0.`", " ", 
       SuperscriptBox["D", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"A", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1.`"}], "-", 
            RowBox[{"1.`", " ", 
             SuperscriptBox["D", "3"]}], "-", 
            RowBox[{"1.`", " ", 
             SuperscriptBox["D", "4"]}], "-", 
            RowBox[{"1.`", " ", "D", " ", "p"}], "+", 
            RowBox[{
             SuperscriptBox["D", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "2.`"}], "+", 
               RowBox[{"0.`", " ", "p"}], "+", 
               RowBox[{"0.`", " ", 
                SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{"B", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"1.`", " ", "D", " ", "p"}], "+", 
            RowBox[{
             SuperscriptBox["D", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"0.`", " ", "p"}], "+", 
               RowBox[{"0.`", " ", 
                SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], "-", 
         RowBox[{"1.`", " ", "Y1"}], "-", 
         RowBox[{"2.`", " ", 
          SuperscriptBox["D", "2"], " ", "Y1"}], "-", 
         RowBox[{"1.`", " ", 
          SuperscriptBox["D", "4"], " ", "Y1"}], "-", 
         RowBox[{"1.`", " ", 
          SuperscriptBox["D", "3"], " ", "Y2"}], "+", 
         RowBox[{"0.`", " ", "D", " ", "p", " ", "Y2"}]}], ")"}]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1.`"}], "-", 
         RowBox[{"1.`", " ", 
          SuperscriptBox["D", "4"]}], "+", 
         RowBox[{
          SuperscriptBox["D", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "3.`"}], "+", 
            RowBox[{"0.`", " ", "p"}]}], ")"}]}]}], ")"}], "2"]]}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.528809206488367*^9, 3.5288123453397846`*^9, 3.528812437988347*^9, 
   3.5288129483588433`*^9, {3.528814116575616*^9, 3.5288141746077175`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"FOUR", " ", 
    RowBox[{"PERIODS", " ", "--"}], " ", "WORKS"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ZA", "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"A", "+", 
       RowBox[{"D", "*", "Q1"}], "+", 
       RowBox[{"p", "*", "D", "*", 
        RowBox[{"(", 
         RowBox[{"A", "-", "B"}], ")"}]}], "+", "Y2"}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"D", "^", 
        RowBox[{"{", "2", "}"}]}]}], ")"}]}]}], "\[IndentingNewLine]", 
   RowBox[{"ZB", "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"B", "+", 
       RowBox[{"D", "*", "Q1"}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}], "*", "D", "*", 
        RowBox[{"(", 
         RowBox[{"B", "-", "A"}], ")"}]}], "+", "Y2"}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"D", "^", 
        RowBox[{"{", "2", "}"}]}]}], ")"}]}]}], "\[IndentingNewLine]", 
   RowBox[{"UA", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"A", "+", "Y1", "+", 
        RowBox[{"D", "*", "Q0"}]}], ")"}], "*", "Q1"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"A", "+", "Y2", "+", 
        RowBox[{"D", "*", "Q0"}]}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "p"}], ")"}], "*", 
         RowBox[{"(", "ZA", ")"}]}], "+", 
        RowBox[{"p", "*", 
         RowBox[{"(", "ZB", ")"}]}]}], ")"}]}], "-", 
     RowBox[{"0.5", "*", 
      RowBox[{"Q1", "^", 
       RowBox[{"{", "2", "}"}]}]}], "-", 
     RowBox[{"0.5", "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "p"}], ")"}], "*", 
         RowBox[{"ZA", "^", 
          RowBox[{"{", "2", "}"}]}]}], "+", 
        RowBox[{"p", "*", 
         RowBox[{"ZB", "^", 
          RowBox[{"{", "2", "}"}]}]}]}], ")"}]}]}]}], "\[IndentingNewLine]", 
   RowBox[{"UB", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"B", "+", "Y1", "+", 
        RowBox[{"D", "*", "Q0"}]}], ")"}], "*", "Q1"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"B", "+", "Y2", "+", 
        RowBox[{"D", "*", "Q0"}]}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "p"}], ")"}], "*", 
         RowBox[{"(", "ZA", ")"}]}], "+", 
        RowBox[{"p", "*", 
         RowBox[{"(", "ZB", ")"}]}]}], ")"}]}], "-", 
     RowBox[{"0.5", "*", 
      RowBox[{"Q1", "^", 
       RowBox[{"{", "2", "}"}]}]}], "-", 
     RowBox[{"0.5", "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "p"}], ")"}], "*", 
         RowBox[{"ZA", "^", 
          RowBox[{"{", "2", "}"}]}]}], "+", 
        RowBox[{"p", "*", 
         RowBox[{"ZB", "^", 
          RowBox[{"{", "2", "}"}]}]}]}], ")"}]}]}]}], "\[IndentingNewLine]", 
   RowBox[{"DUA", "=", 
    RowBox[{"D", "[", 
     RowBox[{"UA", ",", "Q1"}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"DUB", "=", 
    RowBox[{"D", "[", 
     RowBox[{"UB", ",", "Q1"}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"SOLA", "=", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{"DUA", "\[Equal]", "0"}], ",", "Q1"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"SOLB", "=", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{"DUB", "\[Equal]", "0"}], ",", "Q1"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"SOLASIMP", "=", 
    RowBox[{"Simplify", "[", "SOLA", "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"SOLBSIMP", "=", 
    RowBox[{"Simplify", "[", "SOLB", "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"SOLASIMPVALA", " ", "=", 
    RowBox[{
     FractionBox["1", 
      RowBox[{
       RowBox[{"-", "1.`"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "4"]}], "+", 
       RowBox[{
        SuperscriptBox["D", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"-", "3.`"}], ")"}]}]}]], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"A", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1.`"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "3"]}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"]}], "-", 
          RowBox[{"1.`", " ", "D", " ", "p"}], "+", 
          RowBox[{
           SuperscriptBox["D", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "2.`"}], "+", 
             RowBox[{"0.`", " ", "p"}], "+", 
             RowBox[{"0.`", " ", 
              SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
       RowBox[{"B", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"1.`", " ", "D", " ", "p"}], "+", 
          RowBox[{
           SuperscriptBox["D", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"0.`", " ", "p"}], "+", 
             RowBox[{"0.`", " ", 
              SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], "-", 
       RowBox[{"1.`", " ", "D", " ", "Q0"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "2"], " ", "Q0"}], "-", 
       RowBox[{"2.`", " ", 
        SuperscriptBox["D", "3"], " ", "Q0"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "4"], " ", "Q0"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "5"], " ", "Q0"}], "-", 
       RowBox[{"1.`", " ", "Y1"}], "-", 
       RowBox[{"2.`", " ", 
        SuperscriptBox["D", "2"], " ", "Y1"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "4"], " ", "Y1"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "3"], " ", "Y2"}], "+", 
       RowBox[{"0.`", " ", "D", " ", "p", " ", "Y2"}]}], ")"}]}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"SOLBSIMPVALB", " ", "=", " ", 
    RowBox[{
     FractionBox["1", 
      RowBox[{
       RowBox[{"-", "1.`"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "4"]}], "+", 
       RowBox[{
        SuperscriptBox["D", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"-", "3.`"}], ")"}]}]}]], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"B", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1.`"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "3"]}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"]}], "+", 
          RowBox[{"D", " ", "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1.`"}], "+", 
             RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["D", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "2.`"}], "+", 
             RowBox[{"0.`", " ", "p"}], "+", 
             RowBox[{"0.`", " ", 
              SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
       RowBox[{"A", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"D", " ", "*", 
           RowBox[{"(", 
            RowBox[{"1.`", "\[InvisibleSpace]", "-", 
             RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["D", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"0.`", " ", "p"}], "+", 
             RowBox[{"0.`", " ", 
              SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], "-", 
       RowBox[{"1.`", " ", "D", " ", "Q0"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "2"], " ", "Q0"}], "-", 
       RowBox[{"2.`", " ", 
        SuperscriptBox["D", "3"], " ", "Q0"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "4"], " ", "Q0"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "5"], " ", "Q0"}], "-", 
       RowBox[{"1.`", " ", "Y1"}], "-", 
       RowBox[{"2.`", " ", 
        SuperscriptBox["D", "2"], " ", "Y1"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "4"], " ", "Y1"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "3"], " ", "Y2"}], "+", 
       RowBox[{"0.`", " ", "D", " ", "p", " ", "Y2"}]}], ")"}]}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"VA", " ", "=", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"A", "+", "Y0"}], ")"}], "*", "Q0"}], "+", 
     RowBox[{"A", "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "p"}], ")"}], "*", 
         RowBox[{"(", "SOLASIMPVALA", ")"}]}], "+", 
        RowBox[{"p", "*", 
         RowBox[{"(", "SOLBSIMPVALB", ")"}]}]}], ")"}]}], "-", 
     RowBox[{"0.5", "*", 
      RowBox[{"Q0", "^", 
       RowBox[{"{", "2", "}"}]}]}], "-", 
     RowBox[{"0.5", "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "p"}], ")"}], "*", 
         RowBox[{"SOLASIMPVALA", "^", 
          RowBox[{"{", "2", "}"}]}]}], "+", 
        RowBox[{"p", "*", 
         RowBox[{"SOLBSIMPVALB", "^", 
          RowBox[{"{", "2", "}"}]}]}]}], ")"}]}]}]}], "\[IndentingNewLine]", 
   RowBox[{"VB", " ", "=", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"B", "+", "Y0"}], ")"}], "*", "Q0"}], "+", 
     RowBox[{"B", "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "p"}], ")"}], "*", 
         RowBox[{"(", "SOLASIMPVALA", ")"}]}], "+", 
        RowBox[{"p", "*", 
         RowBox[{"(", "SOLBSIMPVALB", ")"}]}]}], ")"}]}], "-", 
     RowBox[{"0.5", "*", 
      RowBox[{"Q0", "^", 
       RowBox[{"{", "2", "}"}]}]}], "-", 
     RowBox[{"0.5", "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "p"}], ")"}], "*", 
         RowBox[{"SOLASIMPVALA", "^", 
          RowBox[{"{", "2", "}"}]}]}], "+", 
        RowBox[{"p", "*", 
         RowBox[{"SOLBSIMPVALB", "^", 
          RowBox[{"{", "2", "}"}]}]}]}], ")"}]}]}]}], "\[IndentingNewLine]", 
   RowBox[{"DVA", " ", "=", " ", 
    RowBox[{"D", "[", 
     RowBox[{"VA", ",", "Q0"}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"SOLVA", " ", "=", " ", 
    RowBox[{"Simplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"DVA", "\[Equal]", "0"}], ",", "Q0"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"D", "[", 
    RowBox[{"SOLVA", ",", "Y0"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{"SOLVA", ",", "Y0"}], "]"}], ",", "D"}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{"SOLVA", ",", "p"}], "]"}], ",", "A"}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{"SOLVA", ",", "p"}], "]"}], ",", "B"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.527962800131414*^9, 3.527963036254429*^9}, {
   3.527963092399927*^9, 3.5279631153319674`*^9}, {3.527963169028262*^9, 
   3.5279632023187203`*^9}, {3.527963234454777*^9, 3.5279632624880257`*^9}, {
   3.5279633647772737`*^9, 3.5279633749640913`*^9}, {3.5283855358867145`*^9, 
   3.528385748421488*^9}, {3.528385825579223*^9, 3.5283858279660273`*^9}, {
   3.5283858838609257`*^9, 3.5283858924721403`*^9}, 3.5283859327514114`*^9, {
   3.5283860342617893`*^9, 3.5283860702198524`*^9}, {3.528386141872779*^9, 
   3.5283861890004616`*^9}, {3.5283863841880045`*^9, 3.528386426651279*^9}, {
   3.528386543791885*^9, 3.5283865549927044`*^9}, {3.5283866033371897`*^9, 
   3.5283866761581173`*^9}, {3.5283867207273955`*^9, 
   3.5283867762010927`*^9}, {3.528386816043563*^9, 3.528386817104365*^9}, {
   3.5283869364913745`*^9, 3.528386937910977*^9}, {3.528386970983404*^9, 
   3.52838709761668*^9}, {3.5283871430595603`*^9, 3.528387284647099*^9}, {
   3.528387322399165*^9, 3.5283873909300857`*^9}, {3.528387431281619*^9, 
   3.528387570348505*^9}, {3.5283876069617696`*^9, 3.5283876246522007`*^9}, {
   3.528388524766735*^9, 3.528388536123555*^9}, {3.528388581098434*^9, 
   3.5283885945144577`*^9}, {3.528388664792581*^9, 3.528388674417798*^9}, {
   3.528388951502885*^9, 3.5283889517524853`*^9}, {3.528809113995805*^9, 
   3.5288091272402277`*^9}, {3.528809225504801*^9, 3.528809269871279*^9}, {
   3.5288094505351963`*^9, 3.528809474169237*^9}, {3.5288124417167535`*^9, 
   3.5288124498131676`*^9}, {3.528812526175302*^9, 3.5288125670785737`*^9}, {
   3.5288126243774743`*^9, 3.528812625219876*^9}, {3.5288127108952265`*^9, 
   3.528812718258439*^9}, {3.5288128899211407`*^9, 3.5288128907791424`*^9}, {
   3.5288129989965324`*^9, 3.528813005751344*^9}, {3.5288130435970106`*^9, 
   3.528813047684218*^9}, {3.5288131026587143`*^9, 3.5288131162931385`*^9}, {
   3.5288131507535987`*^9, 3.528813184855259*^9}, {3.528813257738587*^9, 
   3.528813297690257*^9}, {3.528813329171112*^9, 3.528813382539806*^9}, {
   3.5288135987844505`*^9, 3.5288136202968884`*^9}, {3.5288136758017855`*^9, 
   3.5288136964406214`*^9}, {3.5288137344899035`*^9, 3.528813742674159*^9}, {
   3.528813814652685*^9, 3.5288138148086853`*^9}, {3.5288138546511555`*^9, 
   3.528813861203167*^9}, {3.5288139614957433`*^9, 3.5288139714173603`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  FractionBox[
   RowBox[{"A", "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"A", "-", "B"}], ")"}], " ", "D", " ", "p"}], "+", 
    RowBox[{"D", " ", "Q1"}], "+", "Y2"}], 
   RowBox[{"1", "+", 
    SuperscriptBox["D", "2"]}]], "}"}]], "Output",
 CellChangeTimes->{{3.528809241775629*^9, 3.528809274582487*^9}, {
   3.5288094542012024`*^9, 3.5288094748244386`*^9}, 3.5288124684708004`*^9, {
   3.5288125451917353`*^9, 3.5288125682173758`*^9}, 3.528812719802842*^9, 
   3.528813009495351*^9, 3.5288130495250216`*^9, {3.52881316259402*^9, 
   3.52881318547926*^9}, 3.5288132436985617`*^9, {3.52881328215263*^9, 
   3.528813298782259*^9}, 3.528813334880722*^9, 3.5288135016898794`*^9, {
   3.52881360441606*^9, 3.52881362127969*^9}, {3.528813687845007*^9, 
   3.528813697080223*^9}, 3.528813747478967*^9, 3.528813815604287*^9, 
   3.5288138620299683`*^9, 3.5288139724001627`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  FractionBox[
   RowBox[{"B", "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "A"}], "+", "B"}], ")"}], " ", "D", " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", "p"}], ")"}]}], "+", 
    RowBox[{"D", " ", "Q1"}], "+", "Y2"}], 
   RowBox[{"1", "+", 
    SuperscriptBox["D", "2"]}]], "}"}]], "Output",
 CellChangeTimes->{{3.528809241775629*^9, 3.528809274582487*^9}, {
   3.5288094542012024`*^9, 3.5288094748244386`*^9}, 3.5288124684708004`*^9, {
   3.5288125451917353`*^9, 3.5288125682173758`*^9}, 3.528812719802842*^9, 
   3.528813009495351*^9, 3.5288130495250216`*^9, {3.52881316259402*^9, 
   3.52881318547926*^9}, 3.5288132436985617`*^9, {3.52881328215263*^9, 
   3.528813298782259*^9}, 3.528813334880722*^9, 3.5288135016898794`*^9, {
   3.52881360441606*^9, 3.52881362127969*^9}, {3.528813687845007*^9, 
   3.528813697080223*^9}, 3.528813747478967*^9, 3.528813815604287*^9, 
   3.5288138620299683`*^9, 3.5288139724001627`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "0.5`"}], " ", 
    SuperscriptBox["Q1", "2"]}], "+", 
   RowBox[{"Q1", " ", 
    RowBox[{"(", 
     RowBox[{"A", "+", 
      RowBox[{"D", " ", "Q0"}], "+", "Y1"}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"A", "+", 
      RowBox[{"D", " ", "Q0"}], "+", "Y2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"p", " ", 
        RowBox[{"(", 
         RowBox[{"B", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "A"}], "+", "B"}], ")"}], " ", "D", " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", "p"}], ")"}]}], "+", 
          RowBox[{"D", " ", "Q1"}], "+", "Y2"}], ")"}]}], 
       RowBox[{"1", "+", 
        SuperscriptBox["D", "2"]}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"A", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"A", "-", "B"}], ")"}], " ", "D", " ", "p"}], "+", 
          RowBox[{"D", " ", "Q1"}], "+", "Y2"}], ")"}]}], 
       RowBox[{"1", "+", 
        SuperscriptBox["D", "2"]}]]}], ")"}]}], "-", 
   RowBox[{"0.5`", " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"p", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"B", "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "A"}], "+", "B"}], ")"}], " ", "D", " ", 
            RowBox[{"(", 
             RowBox[{"1", "-", "p"}], ")"}]}], "+", 
           RowBox[{"D", " ", "Q1"}], "+", "Y2"}], ")"}], "2"]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          SuperscriptBox["D", "2"]}], ")"}], "2"]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"A", "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"A", "-", "B"}], ")"}], " ", "D", " ", "p"}], "+", 
           RowBox[{"D", " ", "Q1"}], "+", "Y2"}], ")"}], "2"]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          SuperscriptBox["D", "2"]}], ")"}], "2"]]}], ")"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.528809241775629*^9, 3.528809274582487*^9}, {
   3.5288094542012024`*^9, 3.5288094748244386`*^9}, 3.5288124684708004`*^9, {
   3.5288125451917353`*^9, 3.5288125682173758`*^9}, 3.528812719802842*^9, 
   3.528813009495351*^9, 3.5288130495250216`*^9, {3.52881316259402*^9, 
   3.52881318547926*^9}, 3.5288132436985617`*^9, {3.52881328215263*^9, 
   3.528813298782259*^9}, 3.528813334880722*^9, 3.5288135016898794`*^9, {
   3.52881360441606*^9, 3.52881362127969*^9}, {3.528813687845007*^9, 
   3.528813697080223*^9}, 3.528813747478967*^9, 3.528813815604287*^9, 
   3.5288138620299683`*^9, 3.5288139724157624`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "0.5`"}], " ", 
    SuperscriptBox["Q1", "2"]}], "+", 
   RowBox[{"Q1", " ", 
    RowBox[{"(", 
     RowBox[{"B", "+", 
      RowBox[{"D", " ", "Q0"}], "+", "Y1"}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"B", "+", 
      RowBox[{"D", " ", "Q0"}], "+", "Y2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"p", " ", 
        RowBox[{"(", 
         RowBox[{"B", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "A"}], "+", "B"}], ")"}], " ", "D", " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", "p"}], ")"}]}], "+", 
          RowBox[{"D", " ", "Q1"}], "+", "Y2"}], ")"}]}], 
       RowBox[{"1", "+", 
        SuperscriptBox["D", "2"]}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"A", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"A", "-", "B"}], ")"}], " ", "D", " ", "p"}], "+", 
          RowBox[{"D", " ", "Q1"}], "+", "Y2"}], ")"}]}], 
       RowBox[{"1", "+", 
        SuperscriptBox["D", "2"]}]]}], ")"}]}], "-", 
   RowBox[{"0.5`", " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"p", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"B", "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "A"}], "+", "B"}], ")"}], " ", "D", " ", 
            RowBox[{"(", 
             RowBox[{"1", "-", "p"}], ")"}]}], "+", 
           RowBox[{"D", " ", "Q1"}], "+", "Y2"}], ")"}], "2"]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          SuperscriptBox["D", "2"]}], ")"}], "2"]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"A", "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"A", "-", "B"}], ")"}], " ", "D", " ", "p"}], "+", 
           RowBox[{"D", " ", "Q1"}], "+", "Y2"}], ")"}], "2"]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          SuperscriptBox["D", "2"]}], ")"}], "2"]]}], ")"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.528809241775629*^9, 3.528809274582487*^9}, {
   3.5288094542012024`*^9, 3.5288094748244386`*^9}, 3.5288124684708004`*^9, {
   3.5288125451917353`*^9, 3.5288125682173758`*^9}, 3.528812719802842*^9, 
   3.528813009495351*^9, 3.5288130495250216`*^9, {3.52881316259402*^9, 
   3.52881318547926*^9}, 3.5288132436985617`*^9, {3.52881328215263*^9, 
   3.528813298782259*^9}, 3.528813334880722*^9, 3.5288135016898794`*^9, {
   3.52881360441606*^9, 3.52881362127969*^9}, {3.528813687845007*^9, 
   3.528813697080223*^9}, 3.528813747478967*^9, 3.528813815604287*^9, 
   3.5288138620299683`*^9, 3.528813972431362*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"A", "+", 
   RowBox[{"D", " ", "Q0"}], "-", 
   RowBox[{"1.`", " ", "Q1"}], "+", "Y1", "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"D", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}]}], 
       RowBox[{"1", "+", 
        SuperscriptBox["D", "2"]}]], "+", 
      FractionBox[
       RowBox[{"D", " ", "p"}], 
       RowBox[{"1", "+", 
        SuperscriptBox["D", "2"]}]]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"A", "+", 
      RowBox[{"D", " ", "Q0"}], "+", "Y2"}], ")"}]}], "-", 
   RowBox[{"0.5`", " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"2", " ", "D", " ", "p", " ", 
        RowBox[{"(", 
         RowBox[{"B", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "A"}], "+", "B"}], ")"}], " ", "D", " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", "p"}], ")"}]}], "+", 
          RowBox[{"D", " ", "Q1"}], "+", "Y2"}], ")"}]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          SuperscriptBox["D", "2"]}], ")"}], "2"]], "+", 
      FractionBox[
       RowBox[{"2", " ", "D", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"A", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"A", "-", "B"}], ")"}], " ", "D", " ", "p"}], "+", 
          RowBox[{"D", " ", "Q1"}], "+", "Y2"}], ")"}]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          SuperscriptBox["D", "2"]}], ")"}], "2"]]}], ")"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.528809241775629*^9, 3.528809274582487*^9}, {
   3.5288094542012024`*^9, 3.5288094748244386`*^9}, 3.5288124684708004`*^9, {
   3.5288125451917353`*^9, 3.5288125682173758`*^9}, 3.528812719802842*^9, 
   3.528813009495351*^9, 3.5288130495250216`*^9, {3.52881316259402*^9, 
   3.52881318547926*^9}, 3.5288132436985617`*^9, {3.52881328215263*^9, 
   3.528813298782259*^9}, 3.528813334880722*^9, 3.5288135016898794`*^9, {
   3.52881360441606*^9, 3.52881362127969*^9}, {3.528813687845007*^9, 
   3.528813697080223*^9}, 3.528813747478967*^9, 3.528813815604287*^9, 
   3.5288138620299683`*^9, 3.5288139724469624`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"B", "+", 
   RowBox[{"D", " ", "Q0"}], "-", 
   RowBox[{"1.`", " ", "Q1"}], "+", "Y1", "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"D", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}]}], 
       RowBox[{"1", "+", 
        SuperscriptBox["D", "2"]}]], "+", 
      FractionBox[
       RowBox[{"D", " ", "p"}], 
       RowBox[{"1", "+", 
        SuperscriptBox["D", "2"]}]]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"B", "+", 
      RowBox[{"D", " ", "Q0"}], "+", "Y2"}], ")"}]}], "-", 
   RowBox[{"0.5`", " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"2", " ", "D", " ", "p", " ", 
        RowBox[{"(", 
         RowBox[{"B", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "A"}], "+", "B"}], ")"}], " ", "D", " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", "p"}], ")"}]}], "+", 
          RowBox[{"D", " ", "Q1"}], "+", "Y2"}], ")"}]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          SuperscriptBox["D", "2"]}], ")"}], "2"]], "+", 
      FractionBox[
       RowBox[{"2", " ", "D", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"A", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"A", "-", "B"}], ")"}], " ", "D", " ", "p"}], "+", 
          RowBox[{"D", " ", "Q1"}], "+", "Y2"}], ")"}]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          SuperscriptBox["D", "2"]}], ")"}], "2"]]}], ")"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.528809241775629*^9, 3.528809274582487*^9}, {
   3.5288094542012024`*^9, 3.5288094748244386`*^9}, 3.5288124684708004`*^9, {
   3.5288125451917353`*^9, 3.5288125682173758`*^9}, 3.528812719802842*^9, 
   3.528813009495351*^9, 3.5288130495250216`*^9, {3.52881316259402*^9, 
   3.52881318547926*^9}, 3.5288132436985617`*^9, {3.52881328215263*^9, 
   3.528813298782259*^9}, 3.528813334880722*^9, 3.5288135016898794`*^9, {
   3.52881360441606*^9, 3.52881362127969*^9}, {3.528813687845007*^9, 
   3.528813697080223*^9}, 3.528813747478967*^9, 3.528813815604287*^9, 
   3.5288138620299683`*^9, 3.5288139724625626`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"Q1", "\[Rule]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "1.`"}], " ", "A"}], "+", 
       FractionBox[
        RowBox[{"1.`", " ", "A", " ", "D", " ", 
         RowBox[{"(", 
          RowBox[{"1.`", "\[InvisibleSpace]", "-", 
           RowBox[{"1.`", " ", "p"}]}], ")"}]}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1.`", "\[InvisibleSpace]", "+", 
           SuperscriptBox["D", "2"]}], ")"}], "2"]], "+", 
       FractionBox[
        RowBox[{"1.`", " ", "B", " ", "D", " ", "p"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1.`", "\[InvisibleSpace]", "+", 
           SuperscriptBox["D", "2"]}], ")"}], "2"]], "+", 
       FractionBox[
        RowBox[{"1.`", " ", 
         RowBox[{"(", 
          RowBox[{"A", "-", 
           RowBox[{"1.`", " ", "B"}]}], ")"}], " ", 
         SuperscriptBox["D", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"1.`", "\[InvisibleSpace]", "-", 
           RowBox[{"1.`", " ", "p"}]}], ")"}], " ", "p"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1.`", "\[InvisibleSpace]", "+", 
           SuperscriptBox["D", "2"]}], ")"}], "2"]], "+", 
       FractionBox[
        RowBox[{"1.`", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "1.`"}], " ", "A"}], "+", "B"}], ")"}], " ", 
         SuperscriptBox["D", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"1.`", "\[InvisibleSpace]", "-", 
           RowBox[{"1.`", " ", "p"}]}], ")"}], " ", "p"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1.`", "\[InvisibleSpace]", "+", 
           SuperscriptBox["D", "2"]}], ")"}], "2"]], "-", 
       RowBox[{"1.`", " ", "D", " ", "Q0"}], "-", 
       RowBox[{"1.`", " ", "Y1"}], "+", 
       FractionBox[
        RowBox[{"1.`", " ", "D", " ", 
         RowBox[{"(", 
          RowBox[{"1.`", "\[InvisibleSpace]", "-", 
           RowBox[{"1.`", " ", "p"}]}], ")"}], " ", "Y2"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1.`", "\[InvisibleSpace]", "+", 
           SuperscriptBox["D", "2"]}], ")"}], "2"]], "+", 
       FractionBox[
        RowBox[{"1.`", " ", "D", " ", "p", " ", "Y2"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1.`", "\[InvisibleSpace]", "+", 
           SuperscriptBox["D", "2"]}], ")"}], "2"]], "-", 
       RowBox[{"1.`", " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"D", " ", 
            RowBox[{"(", 
             RowBox[{"1.`", "\[InvisibleSpace]", "-", 
              RowBox[{"1.`", " ", "p"}]}], ")"}]}], 
           RowBox[{"1.`", "\[InvisibleSpace]", "+", 
            SuperscriptBox["D", "2"]}]], "+", 
          FractionBox[
           RowBox[{"D", " ", "p"}], 
           RowBox[{"1.`", "\[InvisibleSpace]", "+", 
            SuperscriptBox["D", "2"]}]]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"A", "+", 
          RowBox[{"D", " ", "Q0"}], "+", "Y2"}], ")"}]}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1.`"}], "-", 
       FractionBox[
        RowBox[{"1.`", " ", 
         SuperscriptBox["D", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"1.`", "\[InvisibleSpace]", "-", 
           RowBox[{"1.`", " ", "p"}]}], ")"}]}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1.`", "\[InvisibleSpace]", "+", 
           SuperscriptBox["D", "2"]}], ")"}], "2"]], "-", 
       FractionBox[
        RowBox[{"1.`", " ", 
         SuperscriptBox["D", "2"], " ", "p"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1.`", "\[InvisibleSpace]", "+", 
           SuperscriptBox["D", "2"]}], ")"}], "2"]]}], ")"}]}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.528809241775629*^9, 3.528809274582487*^9}, {
   3.5288094542012024`*^9, 3.5288094748244386`*^9}, 3.5288124684708004`*^9, {
   3.5288125451917353`*^9, 3.5288125682173758`*^9}, 3.528812719802842*^9, 
   3.528813009495351*^9, 3.5288130495250216`*^9, {3.52881316259402*^9, 
   3.52881318547926*^9}, 3.5288132436985617`*^9, {3.52881328215263*^9, 
   3.528813298782259*^9}, 3.528813334880722*^9, 3.5288135016898794`*^9, {
   3.52881360441606*^9, 3.52881362127969*^9}, {3.528813687845007*^9, 
   3.528813697080223*^9}, 3.528813747478967*^9, 3.528813815604287*^9, 
   3.5288138620299683`*^9, 3.5288139724937625`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"Q1", "\[Rule]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "1.`"}], " ", "B"}], "+", 
       FractionBox[
        RowBox[{"1.`", " ", "A", " ", "D", " ", 
         RowBox[{"(", 
          RowBox[{"1.`", "\[InvisibleSpace]", "-", 
           RowBox[{"1.`", " ", "p"}]}], ")"}]}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1.`", "\[InvisibleSpace]", "+", 
           SuperscriptBox["D", "2"]}], ")"}], "2"]], "+", 
       FractionBox[
        RowBox[{"1.`", " ", "B", " ", "D", " ", "p"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1.`", "\[InvisibleSpace]", "+", 
           SuperscriptBox["D", "2"]}], ")"}], "2"]], "+", 
       FractionBox[
        RowBox[{"1.`", " ", 
         RowBox[{"(", 
          RowBox[{"A", "-", 
           RowBox[{"1.`", " ", "B"}]}], ")"}], " ", 
         SuperscriptBox["D", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"1.`", "\[InvisibleSpace]", "-", 
           RowBox[{"1.`", " ", "p"}]}], ")"}], " ", "p"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1.`", "\[InvisibleSpace]", "+", 
           SuperscriptBox["D", "2"]}], ")"}], "2"]], "+", 
       FractionBox[
        RowBox[{"1.`", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "1.`"}], " ", "A"}], "+", "B"}], ")"}], " ", 
         SuperscriptBox["D", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"1.`", "\[InvisibleSpace]", "-", 
           RowBox[{"1.`", " ", "p"}]}], ")"}], " ", "p"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1.`", "\[InvisibleSpace]", "+", 
           SuperscriptBox["D", "2"]}], ")"}], "2"]], "-", 
       RowBox[{"1.`", " ", "D", " ", "Q0"}], "-", 
       RowBox[{"1.`", " ", "Y1"}], "+", 
       FractionBox[
        RowBox[{"1.`", " ", "D", " ", 
         RowBox[{"(", 
          RowBox[{"1.`", "\[InvisibleSpace]", "-", 
           RowBox[{"1.`", " ", "p"}]}], ")"}], " ", "Y2"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1.`", "\[InvisibleSpace]", "+", 
           SuperscriptBox["D", "2"]}], ")"}], "2"]], "+", 
       FractionBox[
        RowBox[{"1.`", " ", "D", " ", "p", " ", "Y2"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1.`", "\[InvisibleSpace]", "+", 
           SuperscriptBox["D", "2"]}], ")"}], "2"]], "-", 
       RowBox[{"1.`", " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"D", " ", 
            RowBox[{"(", 
             RowBox[{"1.`", "\[InvisibleSpace]", "-", 
              RowBox[{"1.`", " ", "p"}]}], ")"}]}], 
           RowBox[{"1.`", "\[InvisibleSpace]", "+", 
            SuperscriptBox["D", "2"]}]], "+", 
          FractionBox[
           RowBox[{"D", " ", "p"}], 
           RowBox[{"1.`", "\[InvisibleSpace]", "+", 
            SuperscriptBox["D", "2"]}]]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"B", "+", 
          RowBox[{"D", " ", "Q0"}], "+", "Y2"}], ")"}]}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1.`"}], "-", 
       FractionBox[
        RowBox[{"1.`", " ", 
         SuperscriptBox["D", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"1.`", "\[InvisibleSpace]", "-", 
           RowBox[{"1.`", " ", "p"}]}], ")"}]}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1.`", "\[InvisibleSpace]", "+", 
           SuperscriptBox["D", "2"]}], ")"}], "2"]], "-", 
       FractionBox[
        RowBox[{"1.`", " ", 
         SuperscriptBox["D", "2"], " ", "p"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1.`", "\[InvisibleSpace]", "+", 
           SuperscriptBox["D", "2"]}], ")"}], "2"]]}], ")"}]}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.528809241775629*^9, 3.528809274582487*^9}, {
   3.5288094542012024`*^9, 3.5288094748244386`*^9}, 3.5288124684708004`*^9, {
   3.5288125451917353`*^9, 3.5288125682173758`*^9}, 3.528812719802842*^9, 
   3.528813009495351*^9, 3.5288130495250216`*^9, {3.52881316259402*^9, 
   3.52881318547926*^9}, 3.5288132436985617`*^9, {3.52881328215263*^9, 
   3.528813298782259*^9}, 3.528813334880722*^9, 3.5288135016898794`*^9, {
   3.52881360441606*^9, 3.52881362127969*^9}, {3.528813687845007*^9, 
   3.528813697080223*^9}, 3.528813747478967*^9, 3.528813815604287*^9, 
   3.5288138620299683`*^9, 3.5288139725249624`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"Q1", "\[Rule]", 
    RowBox[{
     FractionBox["1", 
      RowBox[{
       RowBox[{"-", "1.`"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "4"]}], "+", 
       RowBox[{
        SuperscriptBox["D", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "3.`"}], "+", 
          RowBox[{"0.`", " ", "p"}]}], ")"}]}]}]], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"A", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1.`"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "3"]}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"]}], "-", 
          RowBox[{"1.`", " ", "D", " ", "p"}], "+", 
          RowBox[{
           SuperscriptBox["D", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "2.`"}], "+", 
             RowBox[{"0.`", " ", "p"}], "+", 
             RowBox[{"0.`", " ", 
              SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
       RowBox[{"B", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"1.`", " ", "D", " ", "p"}], "+", 
          RowBox[{
           SuperscriptBox["D", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"0.`", " ", "p"}], "+", 
             RowBox[{"0.`", " ", 
              SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], "-", 
       RowBox[{"1.`", " ", "D", " ", "Q0"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "2"], " ", "Q0"}], "-", 
       RowBox[{"2.`", " ", 
        SuperscriptBox["D", "3"], " ", "Q0"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "4"], " ", "Q0"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "5"], " ", "Q0"}], "-", 
       RowBox[{"1.`", " ", "Y1"}], "-", 
       RowBox[{"2.`", " ", 
        SuperscriptBox["D", "2"], " ", "Y1"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "4"], " ", "Y1"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "3"], " ", "Y2"}], "+", 
       RowBox[{"0.`", " ", "D", " ", "p", " ", "Y2"}]}], ")"}]}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.528809241775629*^9, 3.528809274582487*^9}, {
   3.5288094542012024`*^9, 3.5288094748244386`*^9}, 3.5288124684708004`*^9, {
   3.5288125451917353`*^9, 3.5288125682173758`*^9}, 3.528812719802842*^9, 
   3.528813009495351*^9, 3.5288130495250216`*^9, {3.52881316259402*^9, 
   3.52881318547926*^9}, 3.5288132436985617`*^9, {3.52881328215263*^9, 
   3.528813298782259*^9}, 3.528813334880722*^9, 3.5288135016898794`*^9, {
   3.52881360441606*^9, 3.52881362127969*^9}, {3.528813687845007*^9, 
   3.528813697080223*^9}, 3.528813747478967*^9, 3.528813815604287*^9, 
   3.5288138620299683`*^9, 3.528813972556163*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"Q1", "\[Rule]", 
    RowBox[{
     FractionBox["1", 
      RowBox[{
       RowBox[{"-", "1.`"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "4"]}], "+", 
       RowBox[{
        SuperscriptBox["D", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "3.`"}], "+", 
          RowBox[{"0.`", " ", "p"}]}], ")"}]}]}]], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"B", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1.`"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "3"]}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"]}], "+", 
          RowBox[{"D", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1.`"}], "+", 
             RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["D", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "2.`"}], "+", 
             RowBox[{"0.`", " ", "p"}], "+", 
             RowBox[{"0.`", " ", 
              SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
       RowBox[{"A", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"D", " ", 
           RowBox[{"(", 
            RowBox[{"1.`", "\[InvisibleSpace]", "-", 
             RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["D", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"0.`", " ", "p"}], "+", 
             RowBox[{"0.`", " ", 
              SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], "-", 
       RowBox[{"1.`", " ", "D", " ", "Q0"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "2"], " ", "Q0"}], "-", 
       RowBox[{"2.`", " ", 
        SuperscriptBox["D", "3"], " ", "Q0"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "4"], " ", "Q0"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "5"], " ", "Q0"}], "-", 
       RowBox[{"1.`", " ", "Y1"}], "-", 
       RowBox[{"2.`", " ", 
        SuperscriptBox["D", "2"], " ", "Y1"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "4"], " ", "Y1"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "3"], " ", "Y2"}], "+", 
       RowBox[{"0.`", " ", "D", " ", "p", " ", "Y2"}]}], ")"}]}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.528809241775629*^9, 3.528809274582487*^9}, {
   3.5288094542012024`*^9, 3.5288094748244386`*^9}, 3.5288124684708004`*^9, {
   3.5288125451917353`*^9, 3.5288125682173758`*^9}, 3.528812719802842*^9, 
   3.528813009495351*^9, 3.5288130495250216`*^9, {3.52881316259402*^9, 
   3.52881318547926*^9}, 3.5288132436985617`*^9, {3.52881328215263*^9, 
   3.528813298782259*^9}, 3.528813334880722*^9, 3.5288135016898794`*^9, {
   3.52881360441606*^9, 3.52881362127969*^9}, {3.528813687845007*^9, 
   3.528813697080223*^9}, 3.528813747478967*^9, 3.528813815604287*^9, 
   3.5288138620299683`*^9, 3.5288139725873623`*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{
    RowBox[{"-", "1.`"}], "-", 
    RowBox[{"3.`", " ", 
     SuperscriptBox["D", "2"]}], "-", 
    RowBox[{"1.`", " ", 
     SuperscriptBox["D", "4"]}]}]], 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"A", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1.`"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "3"]}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "4"]}], "-", 
       RowBox[{"1.`", " ", "D", " ", "p"}], "+", 
       RowBox[{
        SuperscriptBox["D", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "2.`"}], "+", 
          RowBox[{"0.`", " ", "p"}], "+", 
          RowBox[{"0.`", " ", 
           SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
    RowBox[{"B", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"1.`", " ", "D", " ", "p"}], "+", 
       RowBox[{
        SuperscriptBox["D", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"0.`", " ", "p"}], "+", 
          RowBox[{"0.`", " ", 
           SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], "-", 
    RowBox[{"1.`", " ", "D", " ", "Q0"}], "-", 
    RowBox[{"1.`", " ", 
     SuperscriptBox["D", "2"], " ", "Q0"}], "-", 
    RowBox[{"2.`", " ", 
     SuperscriptBox["D", "3"], " ", "Q0"}], "-", 
    RowBox[{"1.`", " ", 
     SuperscriptBox["D", "4"], " ", "Q0"}], "-", 
    RowBox[{"1.`", " ", 
     SuperscriptBox["D", "5"], " ", "Q0"}], "-", 
    RowBox[{"1.`", " ", "Y1"}], "-", 
    RowBox[{"2.`", " ", 
     SuperscriptBox["D", "2"], " ", "Y1"}], "-", 
    RowBox[{"1.`", " ", 
     SuperscriptBox["D", "4"], " ", "Y1"}], "-", 
    RowBox[{"1.`", " ", 
     SuperscriptBox["D", "3"], " ", "Y2"}], "+", 
    RowBox[{"0.`", " ", "D", " ", "p", " ", "Y2"}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.528809241775629*^9, 3.528809274582487*^9}, {
   3.5288094542012024`*^9, 3.5288094748244386`*^9}, 3.5288124684708004`*^9, {
   3.5288125451917353`*^9, 3.5288125682173758`*^9}, 3.528812719802842*^9, 
   3.528813009495351*^9, 3.5288130495250216`*^9, {3.52881316259402*^9, 
   3.52881318547926*^9}, 3.5288132436985617`*^9, {3.52881328215263*^9, 
   3.528813298782259*^9}, 3.528813334880722*^9, 3.5288135016898794`*^9, {
   3.52881360441606*^9, 3.52881362127969*^9}, {3.528813687845007*^9, 
   3.528813697080223*^9}, 3.528813747478967*^9, 3.528813815604287*^9, 
   3.5288138620299683`*^9, 3.5288139726185627`*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{
    RowBox[{"-", "1.`"}], "-", 
    RowBox[{"3.`", " ", 
     SuperscriptBox["D", "2"]}], "-", 
    RowBox[{"1.`", " ", 
     SuperscriptBox["D", "4"]}]}]], 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"B", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1.`"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "3"]}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "4"]}], "+", 
       RowBox[{"D", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1.`"}], "+", 
          RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["D", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "2.`"}], "+", 
          RowBox[{"0.`", " ", "p"}], "+", 
          RowBox[{"0.`", " ", 
           SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
    RowBox[{"A", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"D", " ", 
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "-", 
          RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["D", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"0.`", " ", "p"}], "+", 
          RowBox[{"0.`", " ", 
           SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], "-", 
    RowBox[{"1.`", " ", "D", " ", "Q0"}], "-", 
    RowBox[{"1.`", " ", 
     SuperscriptBox["D", "2"], " ", "Q0"}], "-", 
    RowBox[{"2.`", " ", 
     SuperscriptBox["D", "3"], " ", "Q0"}], "-", 
    RowBox[{"1.`", " ", 
     SuperscriptBox["D", "4"], " ", "Q0"}], "-", 
    RowBox[{"1.`", " ", 
     SuperscriptBox["D", "5"], " ", "Q0"}], "-", 
    RowBox[{"1.`", " ", "Y1"}], "-", 
    RowBox[{"2.`", " ", 
     SuperscriptBox["D", "2"], " ", "Y1"}], "-", 
    RowBox[{"1.`", " ", 
     SuperscriptBox["D", "4"], " ", "Y1"}], "-", 
    RowBox[{"1.`", " ", 
     SuperscriptBox["D", "3"], " ", "Y2"}], "+", 
    RowBox[{"0.`", " ", "D", " ", "p", " ", "Y2"}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.528809241775629*^9, 3.528809274582487*^9}, {
   3.5288094542012024`*^9, 3.5288094748244386`*^9}, 3.5288124684708004`*^9, {
   3.5288125451917353`*^9, 3.5288125682173758`*^9}, 3.528812719802842*^9, 
   3.528813009495351*^9, 3.5288130495250216`*^9, {3.52881316259402*^9, 
   3.52881318547926*^9}, 3.5288132436985617`*^9, {3.52881328215263*^9, 
   3.528813298782259*^9}, 3.528813334880722*^9, 3.5288135016898794`*^9, {
   3.52881360441606*^9, 3.52881362127969*^9}, {3.528813687845007*^9, 
   3.528813697080223*^9}, 3.528813747478967*^9, 3.528813815604287*^9, 
   3.5288138620299683`*^9, 3.528813972649763*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "0.5`"}], " ", 
    SuperscriptBox["Q0", "2"]}], "+", 
   RowBox[{"Q0", " ", 
    RowBox[{"(", 
     RowBox[{"A", "+", "Y0"}], ")"}]}], "+", 
   RowBox[{"A", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox["1", 
        RowBox[{
         RowBox[{"-", "1.`"}], "-", 
         RowBox[{"3.`", " ", 
          SuperscriptBox["D", "2"]}], "-", 
         RowBox[{"1.`", " ", 
          SuperscriptBox["D", "4"]}]}]], "p", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"B", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1.`"}], "-", 
            RowBox[{"1.`", " ", 
             SuperscriptBox["D", "3"]}], "-", 
            RowBox[{"1.`", " ", 
             SuperscriptBox["D", "4"]}], "+", 
            RowBox[{"D", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1.`"}], "+", 
               RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["D", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "2.`"}], "+", 
               RowBox[{"0.`", " ", "p"}], "+", 
               RowBox[{"0.`", " ", 
                SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{"A", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"D", " ", 
             RowBox[{"(", 
              RowBox[{"1.`", "\[InvisibleSpace]", "-", 
               RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["D", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"0.`", " ", "p"}], "+", 
               RowBox[{"0.`", " ", 
                SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], "-", 
         RowBox[{"1.`", " ", "D", " ", "Q0"}], "-", 
         RowBox[{"1.`", " ", 
          SuperscriptBox["D", "2"], " ", "Q0"}], "-", 
         RowBox[{"2.`", " ", 
          SuperscriptBox["D", "3"], " ", "Q0"}], "-", 
         RowBox[{"1.`", " ", 
          SuperscriptBox["D", "4"], " ", "Q0"}], "-", 
         RowBox[{"1.`", " ", 
          SuperscriptBox["D", "5"], " ", "Q0"}], "-", 
         RowBox[{"1.`", " ", "Y1"}], "-", 
         RowBox[{"2.`", " ", 
          SuperscriptBox["D", "2"], " ", "Y1"}], "-", 
         RowBox[{"1.`", " ", 
          SuperscriptBox["D", "4"], " ", "Y1"}], "-", 
         RowBox[{"1.`", " ", 
          SuperscriptBox["D", "3"], " ", "Y2"}], "+", 
         RowBox[{"0.`", " ", "D", " ", "p", " ", "Y2"}]}], ")"}]}], "+", 
      RowBox[{
       FractionBox["1", 
        RowBox[{
         RowBox[{"-", "1.`"}], "-", 
         RowBox[{"3.`", " ", 
          SuperscriptBox["D", "2"]}], "-", 
         RowBox[{"1.`", " ", 
          SuperscriptBox["D", "4"]}]}]], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"A", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1.`"}], "-", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "3"]}], "-", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "4"]}], "-", 
             RowBox[{"1.`", " ", "D", " ", "p"}], "+", 
             RowBox[{
              SuperscriptBox["D", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "2.`"}], "+", 
                RowBox[{"0.`", " ", "p"}], "+", 
                RowBox[{"0.`", " ", 
                 SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
          RowBox[{"B", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"1.`", " ", "D", " ", "p"}], "+", 
             RowBox[{
              SuperscriptBox["D", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"0.`", " ", "p"}], "+", 
                RowBox[{"0.`", " ", 
                 SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], "-", 
          RowBox[{"1.`", " ", "D", " ", "Q0"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "2"], " ", "Q0"}], "-", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "3"], " ", "Q0"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"], " ", "Q0"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "5"], " ", "Q0"}], "-", 
          RowBox[{"1.`", " ", "Y1"}], "-", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "2"], " ", "Y1"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"], " ", "Y1"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "3"], " ", "Y2"}], "+", 
          RowBox[{"0.`", " ", "D", " ", "p", " ", "Y2"}]}], ")"}]}]}]}], 
     ")"}]}], "-", 
   RowBox[{"0.5`", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox["1", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1.`"}], "-", 
           RowBox[{"3.`", " ", 
            SuperscriptBox["D", "2"]}], "-", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "4"]}]}], ")"}], "2"]], "p", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"B", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1.`"}], "-", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "3"]}], "-", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "4"]}], "+", 
             RowBox[{"D", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1.`"}], "+", 
                RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
             RowBox[{
              SuperscriptBox["D", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "2.`"}], "+", 
                RowBox[{"0.`", " ", "p"}], "+", 
                RowBox[{"0.`", " ", 
                 SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
          RowBox[{"A", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"D", " ", 
              RowBox[{"(", 
               RowBox[{"1.`", "\[InvisibleSpace]", "-", 
                RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
             RowBox[{
              SuperscriptBox["D", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"0.`", " ", "p"}], "+", 
                RowBox[{"0.`", " ", 
                 SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], "-", 
          RowBox[{"1.`", " ", "D", " ", "Q0"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "2"], " ", "Q0"}], "-", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "3"], " ", "Q0"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"], " ", "Q0"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "5"], " ", "Q0"}], "-", 
          RowBox[{"1.`", " ", "Y1"}], "-", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "2"], " ", "Y1"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"], " ", "Y1"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "3"], " ", "Y2"}], "+", 
          RowBox[{"0.`", " ", "D", " ", "p", " ", "Y2"}]}], ")"}], "2"]}], 
      "+", 
      RowBox[{
       FractionBox["1", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1.`"}], "-", 
           RowBox[{"3.`", " ", 
            SuperscriptBox["D", "2"]}], "-", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "4"]}]}], ")"}], "2"]], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"A", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "-", 
              RowBox[{"1.`", " ", 
               SuperscriptBox["D", "3"]}], "-", 
              RowBox[{"1.`", " ", 
               SuperscriptBox["D", "4"]}], "-", 
              RowBox[{"1.`", " ", "D", " ", "p"}], "+", 
              RowBox[{
               SuperscriptBox["D", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "2.`"}], "+", 
                 RowBox[{"0.`", " ", "p"}], "+", 
                 RowBox[{"0.`", " ", 
                  SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
           RowBox[{"B", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"1.`", " ", "D", " ", "p"}], "+", 
              RowBox[{
               SuperscriptBox["D", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"0.`", " ", "p"}], "+", 
                 RowBox[{"0.`", " ", 
                  SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], "-", 
           RowBox[{"1.`", " ", "D", " ", "Q0"}], "-", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "2"], " ", "Q0"}], "-", 
           RowBox[{"2.`", " ", 
            SuperscriptBox["D", "3"], " ", "Q0"}], "-", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "4"], " ", "Q0"}], "-", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "5"], " ", "Q0"}], "-", 
           RowBox[{"1.`", " ", "Y1"}], "-", 
           RowBox[{"2.`", " ", 
            SuperscriptBox["D", "2"], " ", "Y1"}], "-", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "4"], " ", "Y1"}], "-", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "3"], " ", "Y2"}], "+", 
           RowBox[{"0.`", " ", "D", " ", "p", " ", "Y2"}]}], ")"}], 
         "2"]}]}]}], ")"}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.528809241775629*^9, 3.528809274582487*^9}, {
   3.5288094542012024`*^9, 3.5288094748244386`*^9}, 3.5288124684708004`*^9, {
   3.5288125451917353`*^9, 3.5288125682173758`*^9}, 3.528812719802842*^9, 
   3.528813009495351*^9, 3.5288130495250216`*^9, {3.52881316259402*^9, 
   3.52881318547926*^9}, 3.5288132436985617`*^9, {3.52881328215263*^9, 
   3.528813298782259*^9}, 3.528813334880722*^9, 3.5288135016898794`*^9, {
   3.52881360441606*^9, 3.52881362127969*^9}, {3.528813687845007*^9, 
   3.528813697080223*^9}, 3.528813747478967*^9, 3.528813815604287*^9, 
   3.5288138620299683`*^9, 3.5288139726809626`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "0.5`"}], " ", 
    SuperscriptBox["Q0", "2"]}], "+", 
   RowBox[{"Q0", " ", 
    RowBox[{"(", 
     RowBox[{"B", "+", "Y0"}], ")"}]}], "+", 
   RowBox[{"B", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox["1", 
        RowBox[{
         RowBox[{"-", "1.`"}], "-", 
         RowBox[{"3.`", " ", 
          SuperscriptBox["D", "2"]}], "-", 
         RowBox[{"1.`", " ", 
          SuperscriptBox["D", "4"]}]}]], "p", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"B", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1.`"}], "-", 
            RowBox[{"1.`", " ", 
             SuperscriptBox["D", "3"]}], "-", 
            RowBox[{"1.`", " ", 
             SuperscriptBox["D", "4"]}], "+", 
            RowBox[{"D", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1.`"}], "+", 
               RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["D", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "2.`"}], "+", 
               RowBox[{"0.`", " ", "p"}], "+", 
               RowBox[{"0.`", " ", 
                SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{"A", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"D", " ", 
             RowBox[{"(", 
              RowBox[{"1.`", "\[InvisibleSpace]", "-", 
               RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["D", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"0.`", " ", "p"}], "+", 
               RowBox[{"0.`", " ", 
                SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], "-", 
         RowBox[{"1.`", " ", "D", " ", "Q0"}], "-", 
         RowBox[{"1.`", " ", 
          SuperscriptBox["D", "2"], " ", "Q0"}], "-", 
         RowBox[{"2.`", " ", 
          SuperscriptBox["D", "3"], " ", "Q0"}], "-", 
         RowBox[{"1.`", " ", 
          SuperscriptBox["D", "4"], " ", "Q0"}], "-", 
         RowBox[{"1.`", " ", 
          SuperscriptBox["D", "5"], " ", "Q0"}], "-", 
         RowBox[{"1.`", " ", "Y1"}], "-", 
         RowBox[{"2.`", " ", 
          SuperscriptBox["D", "2"], " ", "Y1"}], "-", 
         RowBox[{"1.`", " ", 
          SuperscriptBox["D", "4"], " ", "Y1"}], "-", 
         RowBox[{"1.`", " ", 
          SuperscriptBox["D", "3"], " ", "Y2"}], "+", 
         RowBox[{"0.`", " ", "D", " ", "p", " ", "Y2"}]}], ")"}]}], "+", 
      RowBox[{
       FractionBox["1", 
        RowBox[{
         RowBox[{"-", "1.`"}], "-", 
         RowBox[{"3.`", " ", 
          SuperscriptBox["D", "2"]}], "-", 
         RowBox[{"1.`", " ", 
          SuperscriptBox["D", "4"]}]}]], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"A", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1.`"}], "-", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "3"]}], "-", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "4"]}], "-", 
             RowBox[{"1.`", " ", "D", " ", "p"}], "+", 
             RowBox[{
              SuperscriptBox["D", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "2.`"}], "+", 
                RowBox[{"0.`", " ", "p"}], "+", 
                RowBox[{"0.`", " ", 
                 SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
          RowBox[{"B", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"1.`", " ", "D", " ", "p"}], "+", 
             RowBox[{
              SuperscriptBox["D", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"0.`", " ", "p"}], "+", 
                RowBox[{"0.`", " ", 
                 SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], "-", 
          RowBox[{"1.`", " ", "D", " ", "Q0"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "2"], " ", "Q0"}], "-", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "3"], " ", "Q0"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"], " ", "Q0"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "5"], " ", "Q0"}], "-", 
          RowBox[{"1.`", " ", "Y1"}], "-", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "2"], " ", "Y1"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"], " ", "Y1"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "3"], " ", "Y2"}], "+", 
          RowBox[{"0.`", " ", "D", " ", "p", " ", "Y2"}]}], ")"}]}]}]}], 
     ")"}]}], "-", 
   RowBox[{"0.5`", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox["1", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1.`"}], "-", 
           RowBox[{"3.`", " ", 
            SuperscriptBox["D", "2"]}], "-", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "4"]}]}], ")"}], "2"]], "p", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"B", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1.`"}], "-", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "3"]}], "-", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "4"]}], "+", 
             RowBox[{"D", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1.`"}], "+", 
                RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
             RowBox[{
              SuperscriptBox["D", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "2.`"}], "+", 
                RowBox[{"0.`", " ", "p"}], "+", 
                RowBox[{"0.`", " ", 
                 SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
          RowBox[{"A", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"D", " ", 
              RowBox[{"(", 
               RowBox[{"1.`", "\[InvisibleSpace]", "-", 
                RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
             RowBox[{
              SuperscriptBox["D", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"0.`", " ", "p"}], "+", 
                RowBox[{"0.`", " ", 
                 SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], "-", 
          RowBox[{"1.`", " ", "D", " ", "Q0"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "2"], " ", "Q0"}], "-", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "3"], " ", "Q0"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"], " ", "Q0"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "5"], " ", "Q0"}], "-", 
          RowBox[{"1.`", " ", "Y1"}], "-", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "2"], " ", "Y1"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"], " ", "Y1"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "3"], " ", "Y2"}], "+", 
          RowBox[{"0.`", " ", "D", " ", "p", " ", "Y2"}]}], ")"}], "2"]}], 
      "+", 
      RowBox[{
       FractionBox["1", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1.`"}], "-", 
           RowBox[{"3.`", " ", 
            SuperscriptBox["D", "2"]}], "-", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "4"]}]}], ")"}], "2"]], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"A", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "-", 
              RowBox[{"1.`", " ", 
               SuperscriptBox["D", "3"]}], "-", 
              RowBox[{"1.`", " ", 
               SuperscriptBox["D", "4"]}], "-", 
              RowBox[{"1.`", " ", "D", " ", "p"}], "+", 
              RowBox[{
               SuperscriptBox["D", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "2.`"}], "+", 
                 RowBox[{"0.`", " ", "p"}], "+", 
                 RowBox[{"0.`", " ", 
                  SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
           RowBox[{"B", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"1.`", " ", "D", " ", "p"}], "+", 
              RowBox[{
               SuperscriptBox["D", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"0.`", " ", "p"}], "+", 
                 RowBox[{"0.`", " ", 
                  SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], "-", 
           RowBox[{"1.`", " ", "D", " ", "Q0"}], "-", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "2"], " ", "Q0"}], "-", 
           RowBox[{"2.`", " ", 
            SuperscriptBox["D", "3"], " ", "Q0"}], "-", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "4"], " ", "Q0"}], "-", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "5"], " ", "Q0"}], "-", 
           RowBox[{"1.`", " ", "Y1"}], "-", 
           RowBox[{"2.`", " ", 
            SuperscriptBox["D", "2"], " ", "Y1"}], "-", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "4"], " ", "Y1"}], "-", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "3"], " ", "Y2"}], "+", 
           RowBox[{"0.`", " ", "D", " ", "p", " ", "Y2"}]}], ")"}], 
         "2"]}]}]}], ")"}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.528809241775629*^9, 3.528809274582487*^9}, {
   3.5288094542012024`*^9, 3.5288094748244386`*^9}, 3.5288124684708004`*^9, {
   3.5288125451917353`*^9, 3.5288125682173758`*^9}, 3.528812719802842*^9, 
   3.528813009495351*^9, 3.5288130495250216`*^9, {3.52881316259402*^9, 
   3.52881318547926*^9}, 3.5288132436985617`*^9, {3.52881328215263*^9, 
   3.528813298782259*^9}, 3.528813334880722*^9, 3.5288135016898794`*^9, {
   3.52881360441606*^9, 3.52881362127969*^9}, {3.528813687845007*^9, 
   3.528813697080223*^9}, 3.528813747478967*^9, 3.528813815604287*^9, 
   3.5288138620299683`*^9, 3.528813972696563*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"A", "+", 
   RowBox[{"A", " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "1.`"}], " ", "D"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "2"]}], "-", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "3"]}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"]}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "5"]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}]}], 
       RowBox[{
        RowBox[{"-", "1.`"}], "-", 
        RowBox[{"3.`", " ", 
         SuperscriptBox["D", "2"]}], "-", 
        RowBox[{"1.`", " ", 
         SuperscriptBox["D", "4"]}]}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "1.`"}], " ", "D"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "2"]}], "-", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "3"]}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"]}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "5"]}]}], ")"}], " ", "p"}], 
       RowBox[{
        RowBox[{"-", "1.`"}], "-", 
        RowBox[{"3.`", " ", 
         SuperscriptBox["D", "2"]}], "-", 
        RowBox[{"1.`", " ", 
         SuperscriptBox["D", "4"]}]}]]}], ")"}]}], "-", 
   RowBox[{"1.`", " ", "Q0"}], "+", "Y0", "-", 
   RowBox[{"0.5`", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox["1", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1.`"}], "-", 
           RowBox[{"3.`", " ", 
            SuperscriptBox["D", "2"]}], "-", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "4"]}]}], ")"}], "2"]], "2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "1.`"}], " ", "D"}], "-", 
         RowBox[{"1.`", " ", 
          SuperscriptBox["D", "2"]}], "-", 
         RowBox[{"2.`", " ", 
          SuperscriptBox["D", "3"]}], "-", 
         RowBox[{"1.`", " ", 
          SuperscriptBox["D", "4"]}], "-", 
         RowBox[{"1.`", " ", 
          SuperscriptBox["D", "5"]}]}], ")"}], " ", "p", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"B", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1.`"}], "-", 
            RowBox[{"1.`", " ", 
             SuperscriptBox["D", "3"]}], "-", 
            RowBox[{"1.`", " ", 
             SuperscriptBox["D", "4"]}], "+", 
            RowBox[{"D", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1.`"}], "+", 
               RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["D", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "2.`"}], "+", 
               RowBox[{"0.`", " ", "p"}], "+", 
               RowBox[{"0.`", " ", 
                SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{"A", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"D", " ", 
             RowBox[{"(", 
              RowBox[{"1.`", "\[InvisibleSpace]", "-", 
               RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["D", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"0.`", " ", "p"}], "+", 
               RowBox[{"0.`", " ", 
                SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], "-", 
         RowBox[{"1.`", " ", "D", " ", "Q0"}], "-", 
         RowBox[{"1.`", " ", 
          SuperscriptBox["D", "2"], " ", "Q0"}], "-", 
         RowBox[{"2.`", " ", 
          SuperscriptBox["D", "3"], " ", "Q0"}], "-", 
         RowBox[{"1.`", " ", 
          SuperscriptBox["D", "4"], " ", "Q0"}], "-", 
         RowBox[{"1.`", " ", 
          SuperscriptBox["D", "5"], " ", "Q0"}], "-", 
         RowBox[{"1.`", " ", "Y1"}], "-", 
         RowBox[{"2.`", " ", 
          SuperscriptBox["D", "2"], " ", "Y1"}], "-", 
         RowBox[{"1.`", " ", 
          SuperscriptBox["D", "4"], " ", "Y1"}], "-", 
         RowBox[{"1.`", " ", 
          SuperscriptBox["D", "3"], " ", "Y2"}], "+", 
         RowBox[{"0.`", " ", "D", " ", "p", " ", "Y2"}]}], ")"}]}], "+", 
      RowBox[{
       FractionBox["1", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1.`"}], "-", 
           RowBox[{"3.`", " ", 
            SuperscriptBox["D", "2"]}], "-", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "4"]}]}], ")"}], "2"]], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "1.`"}], " ", "D"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "2"]}], "-", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "3"]}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"]}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "5"]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"A", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1.`"}], "-", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "3"]}], "-", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "4"]}], "-", 
             RowBox[{"1.`", " ", "D", " ", "p"}], "+", 
             RowBox[{
              SuperscriptBox["D", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "2.`"}], "+", 
                RowBox[{"0.`", " ", "p"}], "+", 
                RowBox[{"0.`", " ", 
                 SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
          RowBox[{"B", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"1.`", " ", "D", " ", "p"}], "+", 
             RowBox[{
              SuperscriptBox["D", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"0.`", " ", "p"}], "+", 
                RowBox[{"0.`", " ", 
                 SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], "-", 
          RowBox[{"1.`", " ", "D", " ", "Q0"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "2"], " ", "Q0"}], "-", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "3"], " ", "Q0"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"], " ", "Q0"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "5"], " ", "Q0"}], "-", 
          RowBox[{"1.`", " ", "Y1"}], "-", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "2"], " ", "Y1"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"], " ", "Y1"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "3"], " ", "Y2"}], "+", 
          RowBox[{"0.`", " ", "D", " ", "p", " ", "Y2"}]}], ")"}]}]}]}], 
     ")"}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.528809241775629*^9, 3.528809274582487*^9}, {
   3.5288094542012024`*^9, 3.5288094748244386`*^9}, 3.5288124684708004`*^9, {
   3.5288125451917353`*^9, 3.5288125682173758`*^9}, 3.528812719802842*^9, 
   3.528813009495351*^9, 3.5288130495250216`*^9, {3.52881316259402*^9, 
   3.52881318547926*^9}, 3.5288132436985617`*^9, {3.52881328215263*^9, 
   3.528813298782259*^9}, 3.528813334880722*^9, 3.5288135016898794`*^9, {
   3.52881360441606*^9, 3.52881362127969*^9}, {3.528813687845007*^9, 
   3.528813697080223*^9}, 3.528813747478967*^9, 3.528813815604287*^9, 
   3.5288138620299683`*^9, 3.5288139727277627`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"Q0", "\[Rule]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1.`", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
          RowBox[{"3.`", " ", 
           SuperscriptBox["D", "2"]}], "+", 
          SuperscriptBox["D", "4"]}], ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "1.`"}], " ", "A"}], "+", 
         FractionBox[
          RowBox[{"1.`", " ", "A", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["D", "3"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "2.`"}], "+", 
                RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
             RowBox[{"D", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1.`"}], "+", 
                RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
             RowBox[{
              SuperscriptBox["D", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1.`"}], "+", 
                RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
             RowBox[{
              SuperscriptBox["D", "4"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1.`"}], "+", 
                RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
             RowBox[{
              SuperscriptBox["D", "5"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1.`"}], "+", 
                RowBox[{"0.`", " ", "p"}]}], ")"}]}]}], ")"}]}], 
          RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
           RowBox[{"3.`", " ", 
            SuperscriptBox["D", "2"]}], "+", 
           SuperscriptBox["D", "4"]}]], "-", 
         FractionBox[
          RowBox[{"1.`", " ", "A", " ", "D", " ", 
           RowBox[{"(", 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"0.9999999999999999`", "\[InvisibleSpace]", "+", 
             RowBox[{"1.`", " ", "D"}], "+", 
             SuperscriptBox["D", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"1.`", "\[InvisibleSpace]", "-", 
             RowBox[{"1.`", " ", "p"}]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1.`"}], "-", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "3"]}], "-", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "4"]}], "-", 
             RowBox[{"1.`", " ", "D", " ", "p"}], "+", 
             RowBox[{
              SuperscriptBox["D", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "2.`"}], "+", 
                RowBox[{"0.`", " ", "p"}], "+", 
                RowBox[{"0.`", " ", 
                 SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
             RowBox[{"3.`", " ", 
              SuperscriptBox["D", "2"]}], "+", 
             SuperscriptBox["D", "4"]}], ")"}], "2"]], "-", 
         FractionBox[
          RowBox[{"1.`", " ", "B", " ", "D", " ", 
           RowBox[{"(", 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"0.9999999999999999`", "\[InvisibleSpace]", "+", 
             RowBox[{"1.`", " ", "D"}], "+", 
             SuperscriptBox["D", "2"]}], ")"}], " ", "p", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1.`"}], "-", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "3"]}], "-", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "4"]}], "+", 
             RowBox[{"D", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1.`"}], "+", 
                RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
             RowBox[{
              SuperscriptBox["D", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "2.`"}], "+", 
                RowBox[{"0.`", " ", "p"}], "+", 
                RowBox[{"0.`", " ", 
                 SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
             RowBox[{"3.`", " ", 
              SuperscriptBox["D", "2"]}], "+", 
             SuperscriptBox["D", "4"]}], ")"}], "2"]], "-", 
         FractionBox[
          RowBox[{"1.`", " ", "A", " ", "D", " ", 
           RowBox[{"(", 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"0.9999999999999999`", "\[InvisibleSpace]", "+", 
             RowBox[{"1.`", " ", "D"}], "+", 
             SuperscriptBox["D", "2"]}], ")"}], " ", "p", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"D", " ", 
              RowBox[{"(", 
               RowBox[{"1.`", "\[InvisibleSpace]", "-", 
                RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
             RowBox[{
              SuperscriptBox["D", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"0.`", " ", "p"}], "+", 
                RowBox[{"0.`", " ", 
                 SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
             RowBox[{"3.`", " ", 
              SuperscriptBox["D", "2"]}], "+", 
             SuperscriptBox["D", "4"]}], ")"}], "2"]], "-", 
         FractionBox[
          RowBox[{"1.`", " ", "B", " ", "D", " ", 
           RowBox[{"(", 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"0.9999999999999999`", "\[InvisibleSpace]", "+", 
             RowBox[{"1.`", " ", "D"}], "+", 
             SuperscriptBox["D", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"1.`", "\[InvisibleSpace]", "-", 
             RowBox[{"1.`", " ", "p"}]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"1.`", " ", "D", " ", "p"}], "+", 
             RowBox[{
              SuperscriptBox["D", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"0.`", " ", "p"}], "+", 
                RowBox[{"0.`", " ", 
                 SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
             RowBox[{"3.`", " ", 
              SuperscriptBox["D", "2"]}], "+", 
             SuperscriptBox["D", "4"]}], ")"}], "2"]], "-", 
         RowBox[{"1.`", " ", "Y0"}], "+", 
         FractionBox[
          RowBox[{"1.`", " ", "D", " ", 
           RowBox[{"(", 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"0.9999999999999999`", "\[InvisibleSpace]", "+", 
             RowBox[{"1.`", " ", "D"}], "+", 
             SuperscriptBox["D", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"1.`", "\[InvisibleSpace]", "-", 
             RowBox[{"1.`", " ", "p"}]}], ")"}], " ", "Y1"}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
             RowBox[{"3.`", " ", 
              SuperscriptBox["D", "2"]}], "+", 
             SuperscriptBox["D", "4"]}], ")"}], "2"]], "+", 
         FractionBox[
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "3"], " ", 
           RowBox[{"(", 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"0.9999999999999999`", "\[InvisibleSpace]", "+", 
             RowBox[{"1.`", " ", "D"}], "+", 
             SuperscriptBox["D", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"1.`", "\[InvisibleSpace]", "-", 
             RowBox[{"1.`", " ", "p"}]}], ")"}], " ", "Y1"}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
             RowBox[{"3.`", " ", 
              SuperscriptBox["D", "2"]}], "+", 
             SuperscriptBox["D", "4"]}], ")"}], "2"]], "+", 
         FractionBox[
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "5"], " ", 
           RowBox[{"(", 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"0.9999999999999999`", "\[InvisibleSpace]", "+", 
             RowBox[{"1.`", " ", "D"}], "+", 
             SuperscriptBox["D", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"1.`", "\[InvisibleSpace]", "-", 
             RowBox[{"1.`", " ", "p"}]}], ")"}], " ", "Y1"}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
             RowBox[{"3.`", " ", 
              SuperscriptBox["D", "2"]}], "+", 
             SuperscriptBox["D", "4"]}], ")"}], "2"]], "+", 
         FractionBox[
          RowBox[{"1.`", " ", "D", " ", 
           RowBox[{"(", 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"0.9999999999999999`", "\[InvisibleSpace]", "+", 
             RowBox[{"1.`", " ", "D"}], "+", 
             SuperscriptBox["D", "2"]}], ")"}], " ", "p", " ", "Y1"}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
             RowBox[{"3.`", " ", 
              SuperscriptBox["D", "2"]}], "+", 
             SuperscriptBox["D", "4"]}], ")"}], "2"]], "+", 
         FractionBox[
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "3"], " ", 
           RowBox[{"(", 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"0.9999999999999999`", "\[InvisibleSpace]", "+", 
             RowBox[{"1.`", " ", "D"}], "+", 
             SuperscriptBox["D", "2"]}], ")"}], " ", "p", " ", "Y1"}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
             RowBox[{"3.`", " ", 
              SuperscriptBox["D", "2"]}], "+", 
             SuperscriptBox["D", "4"]}], ")"}], "2"]], "+", 
         FractionBox[
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "5"], " ", 
           RowBox[{"(", 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"0.9999999999999999`", "\[InvisibleSpace]", "+", 
             RowBox[{"1.`", " ", "D"}], "+", 
             SuperscriptBox["D", "2"]}], ")"}], " ", "p", " ", "Y1"}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
             RowBox[{"3.`", " ", 
              SuperscriptBox["D", "2"]}], "+", 
             SuperscriptBox["D", "4"]}], ")"}], "2"]], "+", 
         FractionBox[
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"], " ", 
           RowBox[{"(", 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"0.9999999999999999`", "\[InvisibleSpace]", "+", 
             RowBox[{"1.`", " ", "D"}], "+", 
             SuperscriptBox["D", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"1.`", "\[InvisibleSpace]", "-", 
             RowBox[{"1.`", " ", "p"}]}], ")"}], " ", "Y2"}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
             RowBox[{"3.`", " ", 
              SuperscriptBox["D", "2"]}], "+", 
             SuperscriptBox["D", "4"]}], ")"}], "2"]], "+", 
         FractionBox[
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"], " ", 
           RowBox[{"(", 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"0.9999999999999999`", "\[InvisibleSpace]", "+", 
             RowBox[{"1.`", " ", "D"}], "+", 
             SuperscriptBox["D", "2"]}], ")"}], " ", "p", " ", "Y2"}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
             RowBox[{"3.`", " ", 
              SuperscriptBox["D", "2"]}], "+", 
             SuperscriptBox["D", "4"]}], ")"}], "2"]], "+", 
         FractionBox[
          RowBox[{"0.`", " ", 
           SuperscriptBox["D", "2"], " ", 
           RowBox[{"(", 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"0.9999999999999999`", "\[InvisibleSpace]", "+", 
             RowBox[{"1.`", " ", "D"}], "+", 
             SuperscriptBox["D", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"1.`", "\[InvisibleSpace]", "-", 
             RowBox[{"1.`", " ", "p"}]}], ")"}], " ", "p", " ", "Y2"}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
             RowBox[{"3.`", " ", 
              SuperscriptBox["D", "2"]}], "+", 
             SuperscriptBox["D", "4"]}], ")"}], "2"]], "+", 
         FractionBox[
          RowBox[{"0.`", " ", 
           SuperscriptBox["D", "2"], " ", 
           RowBox[{"(", 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"0.9999999999999999`", "\[InvisibleSpace]", "+", 
             RowBox[{"1.`", " ", "D"}], "+", 
             SuperscriptBox["D", "2"]}], ")"}], " ", 
           SuperscriptBox["p", "2"], " ", "Y2"}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
             RowBox[{"3.`", " ", 
              SuperscriptBox["D", "2"]}], "+", 
             SuperscriptBox["D", "4"]}], ")"}], "2"]]}], ")"}]}], ")"}], "/", 
     
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1.`"}], "+", 
       RowBox[{
        SuperscriptBox["D", "4"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "16.`"}], "+", 
          RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["D", "6"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "14.`"}], "+", 
          RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["D", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "7.`"}], "+", 
          RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["D", "5"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "6.`"}], "+", 
          RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["D", "7"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "6.`"}], "+", 
          RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["D", "8"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "6.`"}], "+", 
          RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["D", "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "2.`"}], "+", 
          RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["D", "9"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "2.`"}], "+", 
          RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["D", "10"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1.`"}], "+", 
          RowBox[{"0.`", " ", "p"}]}], ")"}]}]}], ")"}]}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.528809241775629*^9, 3.528809274582487*^9}, {
   3.5288094542012024`*^9, 3.5288094748244386`*^9}, 3.5288124684708004`*^9, {
   3.5288125451917353`*^9, 3.5288125682173758`*^9}, 3.528812719802842*^9, 
   3.528813009495351*^9, 3.5288130495250216`*^9, {3.52881316259402*^9, 
   3.52881318547926*^9}, 3.5288132436985617`*^9, {3.52881328215263*^9, 
   3.528813298782259*^9}, 3.528813334880722*^9, 3.5288135016898794`*^9, {
   3.52881360441606*^9, 3.52881362127969*^9}, {3.528813687845007*^9, 
   3.528813697080223*^9}, 3.528813747478967*^9, 3.528813815604287*^9, 
   3.5288138620299683`*^9, 3.5288139727589626`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"0", "\[Rule]", 
    RowBox[{"-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1.`", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
           RowBox[{"3.`", " ", 
            SuperscriptBox["D", "2"]}], "+", 
           SuperscriptBox["D", "4"]}], ")"}], "2"]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1.`"}], "+", 
        RowBox[{
         SuperscriptBox["D", "4"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "16.`"}], "+", 
           RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["D", "6"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "14.`"}], "+", 
           RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["D", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "7.`"}], "+", 
           RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["D", "5"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "6.`"}], "+", 
           RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["D", "7"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "6.`"}], "+", 
           RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["D", "8"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "6.`"}], "+", 
           RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["D", "3"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "2.`"}], "+", 
           RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["D", "9"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "2.`"}], "+", 
           RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["D", "10"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1.`"}], "+", 
           RowBox[{"0.`", " ", "p"}]}], ")"}]}]}], ")"}]}]}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.528809241775629*^9, 3.528809274582487*^9}, {
   3.5288094542012024`*^9, 3.5288094748244386`*^9}, 3.5288124684708004`*^9, {
   3.5288125451917353`*^9, 3.5288125682173758`*^9}, 3.528812719802842*^9, 
   3.528813009495351*^9, 3.5288130495250216`*^9, {3.52881316259402*^9, 
   3.52881318547926*^9}, 3.5288132436985617`*^9, {3.52881328215263*^9, 
   3.528813298782259*^9}, 3.528813334880722*^9, 3.5288135016898794`*^9, {
   3.52881360441606*^9, 3.52881362127969*^9}, {3.528813687845007*^9, 
   3.528813697080223*^9}, 3.528813747478967*^9, 3.528813815604287*^9, 
   3.5288138620299683`*^9, 3.528813972774563*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"0", "\[Rule]", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1.`", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
           RowBox[{"3.`", " ", 
            SuperscriptBox["D", "2"]}], "+", 
           SuperscriptBox["D", "4"]}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"4", " ", 
           SuperscriptBox["D", "3"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "16.`"}], "+", 
             RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{"6", " ", 
           SuperscriptBox["D", "5"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "14.`"}], "+", 
             RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{"2", " ", "D", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "7.`"}], "+", 
             RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{"5", " ", 
           SuperscriptBox["D", "4"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "6.`"}], "+", 
             RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{"7", " ", 
           SuperscriptBox["D", "6"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "6.`"}], "+", 
             RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{"8", " ", 
           SuperscriptBox["D", "7"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "6.`"}], "+", 
             RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{"3", " ", 
           SuperscriptBox["D", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "2.`"}], "+", 
             RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{"9", " ", 
           SuperscriptBox["D", "8"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "2.`"}], "+", 
             RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{"10", " ", 
           SuperscriptBox["D", "9"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1.`"}], "+", 
             RowBox[{"0.`", " ", "p"}]}], ")"}]}]}], ")"}]}], ")"}], "/", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1.`"}], "+", 
         RowBox[{
          SuperscriptBox["D", "4"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "16.`"}], "+", 
            RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["D", "6"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "14.`"}], "+", 
            RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["D", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "7.`"}], "+", 
            RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["D", "5"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "6.`"}], "+", 
            RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["D", "7"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "6.`"}], "+", 
            RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["D", "8"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "6.`"}], "+", 
            RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["D", "3"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "2.`"}], "+", 
            RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["D", "9"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "2.`"}], "+", 
            RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["D", "10"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1.`"}], "+", 
            RowBox[{"0.`", " ", "p"}]}], ")"}]}]}], ")"}], "2"]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"2.`", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"6.`", " ", "D"}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["D", "3"]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
          RowBox[{"3.`", " ", 
           SuperscriptBox["D", "2"]}], "+", 
          SuperscriptBox["D", "4"]}], ")"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1.`"}], "+", 
        RowBox[{
         SuperscriptBox["D", "4"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "16.`"}], "+", 
           RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["D", "6"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "14.`"}], "+", 
           RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["D", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "7.`"}], "+", 
           RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["D", "5"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "6.`"}], "+", 
           RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["D", "7"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "6.`"}], "+", 
           RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["D", "8"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "6.`"}], "+", 
           RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["D", "3"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "2.`"}], "+", 
           RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["D", "9"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "2.`"}], "+", 
           RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["D", "10"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1.`"}], "+", 
           RowBox[{"0.`", " ", "p"}]}], ")"}]}]}], ")"}]}]}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.528809241775629*^9, 3.528809274582487*^9}, {
   3.5288094542012024`*^9, 3.5288094748244386`*^9}, 3.5288124684708004`*^9, {
   3.5288125451917353`*^9, 3.5288125682173758`*^9}, 3.528812719802842*^9, 
   3.528813009495351*^9, 3.5288130495250216`*^9, {3.52881316259402*^9, 
   3.52881318547926*^9}, 3.5288132436985617`*^9, {3.52881328215263*^9, 
   3.528813298782259*^9}, 3.528813334880722*^9, 3.5288135016898794`*^9, {
   3.52881360441606*^9, 3.52881362127969*^9}, {3.528813687845007*^9, 
   3.528813697080223*^9}, 3.528813747478967*^9, 3.528813815604287*^9, 
   3.5288138620299683`*^9, 3.5288139728057632`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"0", "\[Rule]", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1.`", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
           RowBox[{"3.`", " ", 
            SuperscriptBox["D", "2"]}], "+", 
           SuperscriptBox["D", "4"]}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"1.`", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"0.`", " ", "D"}], "+", 
              RowBox[{"0.`", " ", 
               SuperscriptBox["D", "2"]}], "+", 
              RowBox[{"0.`", " ", 
               SuperscriptBox["D", "3"]}], "+", 
              RowBox[{"0.`", " ", 
               SuperscriptBox["D", "4"]}], "+", 
              RowBox[{"0.`", " ", 
               SuperscriptBox["D", "5"]}]}], ")"}]}], 
           RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
            RowBox[{"3.`", " ", 
             SuperscriptBox["D", "2"]}], "+", 
            SuperscriptBox["D", "4"]}]], "-", 
          FractionBox[
           RowBox[{"1.`", " ", "D", " ", 
            RowBox[{"(", 
             RowBox[{"1.`", "\[InvisibleSpace]", "+", 
              SuperscriptBox["D", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"0.9999999999999999`", "\[InvisibleSpace]", "+", 
              RowBox[{"1.`", " ", "D"}], "+", 
              SuperscriptBox["D", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "1.`"}], " ", "D"}], "+", 
              RowBox[{
               SuperscriptBox["D", "2"], " ", 
               RowBox[{"(", 
                RowBox[{"0.`", "\[InvisibleSpace]", "+", 
                 RowBox[{"0.`", " ", "p"}]}], ")"}]}]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"1.`", "\[InvisibleSpace]", "-", 
              RowBox[{"1.`", " ", "p"}]}], ")"}]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
              RowBox[{"3.`", " ", 
               SuperscriptBox["D", "2"]}], "+", 
              SuperscriptBox["D", "4"]}], ")"}], "2"]], "-", 
          FractionBox[
           RowBox[{"1.`", " ", "D", " ", 
            RowBox[{"(", 
             RowBox[{"1.`", "\[InvisibleSpace]", "+", 
              SuperscriptBox["D", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"0.9999999999999999`", "\[InvisibleSpace]", "+", 
              RowBox[{"1.`", " ", "D"}], "+", 
              SuperscriptBox["D", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "1.`"}], " ", "D"}], "+", 
              RowBox[{
               SuperscriptBox["D", "2"], " ", 
               RowBox[{"(", 
                RowBox[{"0.`", "\[InvisibleSpace]", "+", 
                 RowBox[{"0.`", " ", "p"}]}], ")"}]}]}], ")"}], " ", "p"}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
              RowBox[{"3.`", " ", 
               SuperscriptBox["D", "2"]}], "+", 
              SuperscriptBox["D", "4"]}], ")"}], "2"]], "+", 
          FractionBox[
           RowBox[{"1.`", " ", "D", " ", 
            RowBox[{"(", 
             RowBox[{"1.`", "\[InvisibleSpace]", "+", 
              SuperscriptBox["D", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"0.9999999999999999`", "\[InvisibleSpace]", "+", 
              RowBox[{"1.`", " ", "D"}], "+", 
              SuperscriptBox["D", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "-", 
              RowBox[{"1.`", " ", 
               SuperscriptBox["D", "3"]}], "-", 
              RowBox[{"1.`", " ", 
               SuperscriptBox["D", "4"]}], "-", 
              RowBox[{"1.`", " ", "D", " ", "p"}], "+", 
              RowBox[{
               SuperscriptBox["D", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "2.`"}], "+", 
                 RowBox[{"0.`", " ", "p"}], "+", 
                 RowBox[{"0.`", " ", 
                  SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
              RowBox[{"3.`", " ", 
               SuperscriptBox["D", "2"]}], "+", 
              SuperscriptBox["D", "4"]}], ")"}], "2"]], "-", 
          FractionBox[
           RowBox[{"1.`", " ", "D", " ", 
            RowBox[{"(", 
             RowBox[{"1.`", "\[InvisibleSpace]", "+", 
              SuperscriptBox["D", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"0.9999999999999999`", "\[InvisibleSpace]", "+", 
              RowBox[{"1.`", " ", "D"}], "+", 
              SuperscriptBox["D", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"D", " ", 
               RowBox[{"(", 
                RowBox[{"1.`", "\[InvisibleSpace]", "-", 
                 RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
              RowBox[{
               SuperscriptBox["D", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"0.`", " ", "p"}], "+", 
                 RowBox[{"0.`", " ", 
                  SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
              RowBox[{"3.`", " ", 
               SuperscriptBox["D", "2"]}], "+", 
              SuperscriptBox["D", "4"]}], ")"}], "2"]]}], ")"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1.`"}], "+", 
        RowBox[{
         SuperscriptBox["D", "4"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "16.`"}], "+", 
           RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["D", "6"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "14.`"}], "+", 
           RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["D", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "7.`"}], "+", 
           RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["D", "5"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "6.`"}], "+", 
           RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["D", "7"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "6.`"}], "+", 
           RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["D", "8"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "6.`"}], "+", 
           RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["D", "3"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "2.`"}], "+", 
           RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["D", "9"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "2.`"}], "+", 
           RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["D", "10"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1.`"}], "+", 
           RowBox[{"0.`", " ", "p"}]}], ")"}]}]}], ")"}]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1.`", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
           RowBox[{"3.`", " ", 
            SuperscriptBox["D", "2"]}], "+", 
           SuperscriptBox["D", "4"]}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"0.`", " ", 
           SuperscriptBox["D", "2"]}], "+", 
          RowBox[{"0.`", " ", 
           SuperscriptBox["D", "3"]}], "+", 
          RowBox[{"0.`", " ", 
           SuperscriptBox["D", "4"]}], "+", 
          RowBox[{"0.`", " ", 
           SuperscriptBox["D", "5"]}], "+", 
          RowBox[{"0.`", " ", 
           SuperscriptBox["D", "6"]}], "+", 
          RowBox[{"0.`", " ", 
           SuperscriptBox["D", "7"]}], "+", 
          RowBox[{"0.`", " ", 
           SuperscriptBox["D", "8"]}], "+", 
          RowBox[{"0.`", " ", 
           SuperscriptBox["D", "9"]}], "+", 
          RowBox[{"0.`", " ", 
           SuperscriptBox["D", "10"]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1.`"}], "+", 
          FractionBox[
           RowBox[{"1.`", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["D", "3"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "2.`"}], "+", 
                 RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
              RowBox[{"D", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1.`"}], "+", 
                 RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
              RowBox[{
               SuperscriptBox["D", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1.`"}], "+", 
                 RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
              RowBox[{
               SuperscriptBox["D", "4"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1.`"}], "+", 
                 RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
              RowBox[{
               SuperscriptBox["D", "5"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1.`"}], "+", 
                 RowBox[{"0.`", " ", "p"}]}], ")"}]}]}], ")"}]}], 
           RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
            RowBox[{"3.`", " ", 
             SuperscriptBox["D", "2"]}], "+", 
            SuperscriptBox["D", "4"]}]], "-", 
          FractionBox[
           RowBox[{"1.`", " ", "D", " ", 
            RowBox[{"(", 
             RowBox[{"1.`", "\[InvisibleSpace]", "+", 
              SuperscriptBox["D", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"0.9999999999999999`", "\[InvisibleSpace]", "+", 
              RowBox[{"1.`", " ", "D"}], "+", 
              SuperscriptBox["D", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"1.`", "\[InvisibleSpace]", "-", 
              RowBox[{"1.`", " ", "p"}]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "-", 
              RowBox[{"1.`", " ", 
               SuperscriptBox["D", "3"]}], "-", 
              RowBox[{"1.`", " ", 
               SuperscriptBox["D", "4"]}], "-", 
              RowBox[{"1.`", " ", "D", " ", "p"}], "+", 
              RowBox[{
               SuperscriptBox["D", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "2.`"}], "+", 
                 RowBox[{"0.`", " ", "p"}], "+", 
                 RowBox[{"0.`", " ", 
                  SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
              RowBox[{"3.`", " ", 
               SuperscriptBox["D", "2"]}], "+", 
              SuperscriptBox["D", "4"]}], ")"}], "2"]], "-", 
          FractionBox[
           RowBox[{"1.`", " ", "D", " ", 
            RowBox[{"(", 
             RowBox[{"1.`", "\[InvisibleSpace]", "+", 
              SuperscriptBox["D", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"0.9999999999999999`", "\[InvisibleSpace]", "+", 
              RowBox[{"1.`", " ", "D"}], "+", 
              SuperscriptBox["D", "2"]}], ")"}], " ", "p", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"D", " ", 
               RowBox[{"(", 
                RowBox[{"1.`", "\[InvisibleSpace]", "-", 
                 RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
              RowBox[{
               SuperscriptBox["D", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"0.`", " ", "p"}], "+", 
                 RowBox[{"0.`", " ", 
                  SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
              RowBox[{"3.`", " ", 
               SuperscriptBox["D", "2"]}], "+", 
              SuperscriptBox["D", "4"]}], ")"}], "2"]]}], ")"}]}], ")"}], "/", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1.`"}], "+", 
         RowBox[{
          SuperscriptBox["D", "4"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "16.`"}], "+", 
            RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["D", "6"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "14.`"}], "+", 
            RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["D", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "7.`"}], "+", 
            RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["D", "5"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "6.`"}], "+", 
            RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["D", "7"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "6.`"}], "+", 
            RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["D", "8"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "6.`"}], "+", 
            RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["D", "3"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "2.`"}], "+", 
            RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["D", "9"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "2.`"}], "+", 
            RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["D", "10"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1.`"}], "+", 
            RowBox[{"0.`", " ", "p"}]}], ")"}]}]}], ")"}], "2"]}]}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.528809241775629*^9, 3.528809274582487*^9}, {
   3.5288094542012024`*^9, 3.5288094748244386`*^9}, 3.5288124684708004`*^9, {
   3.5288125451917353`*^9, 3.5288125682173758`*^9}, 3.528812719802842*^9, 
   3.528813009495351*^9, 3.5288130495250216`*^9, {3.52881316259402*^9, 
   3.52881318547926*^9}, 3.5288132436985617`*^9, {3.52881328215263*^9, 
   3.528813298782259*^9}, 3.528813334880722*^9, 3.5288135016898794`*^9, {
   3.52881360441606*^9, 3.52881362127969*^9}, {3.528813687845007*^9, 
   3.528813697080223*^9}, 3.528813747478967*^9, 3.528813815604287*^9, 
   3.5288138620299683`*^9, 3.528813972836963*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"0", "\[Rule]", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1.`", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
           RowBox[{"3.`", " ", 
            SuperscriptBox["D", "2"]}], "+", 
           SuperscriptBox["D", "4"]}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"1.`", " ", "D", " ", 
             RowBox[{"(", 
              RowBox[{"1.`", "\[InvisibleSpace]", "+", 
               SuperscriptBox["D", "2"]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{"0.9999999999999999`", "\[InvisibleSpace]", "+", 
               RowBox[{"1.`", " ", "D"}], "+", 
               SuperscriptBox["D", "2"]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"1.`", " ", "D"}], "+", 
               RowBox[{
                SuperscriptBox["D", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{"0.`", "\[InvisibleSpace]", "+", 
                  RowBox[{"0.`", " ", "p"}]}], ")"}]}]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{"1.`", "\[InvisibleSpace]", "-", 
               RowBox[{"1.`", " ", "p"}]}], ")"}]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
               RowBox[{"3.`", " ", 
                SuperscriptBox["D", "2"]}], "+", 
               SuperscriptBox["D", "4"]}], ")"}], "2"]]}], "-", 
          FractionBox[
           RowBox[{"1.`", " ", "D", " ", 
            RowBox[{"(", 
             RowBox[{"1.`", "\[InvisibleSpace]", "+", 
              SuperscriptBox["D", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"0.9999999999999999`", "\[InvisibleSpace]", "+", 
              RowBox[{"1.`", " ", "D"}], "+", 
              SuperscriptBox["D", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"1.`", " ", "D"}], "+", 
              RowBox[{
               SuperscriptBox["D", "2"], " ", 
               RowBox[{"(", 
                RowBox[{"0.`", "\[InvisibleSpace]", "+", 
                 RowBox[{"0.`", " ", "p"}]}], ")"}]}]}], ")"}], " ", "p"}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
              RowBox[{"3.`", " ", 
               SuperscriptBox["D", "2"]}], "+", 
              SuperscriptBox["D", "4"]}], ")"}], "2"]], "-", 
          FractionBox[
           RowBox[{"1.`", " ", "D", " ", 
            RowBox[{"(", 
             RowBox[{"1.`", "\[InvisibleSpace]", "+", 
              SuperscriptBox["D", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"0.9999999999999999`", "\[InvisibleSpace]", "+", 
              RowBox[{"1.`", " ", "D"}], "+", 
              SuperscriptBox["D", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "-", 
              RowBox[{"1.`", " ", 
               SuperscriptBox["D", "3"]}], "-", 
              RowBox[{"1.`", " ", 
               SuperscriptBox["D", "4"]}], "+", 
              RowBox[{"D", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1.`"}], "+", 
                 RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
              RowBox[{
               SuperscriptBox["D", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "2.`"}], "+", 
                 RowBox[{"0.`", " ", "p"}], "+", 
                 RowBox[{"0.`", " ", 
                  SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
              RowBox[{"3.`", " ", 
               SuperscriptBox["D", "2"]}], "+", 
              SuperscriptBox["D", "4"]}], ")"}], "2"]], "+", 
          FractionBox[
           RowBox[{"1.`", " ", "D", " ", 
            RowBox[{"(", 
             RowBox[{"1.`", "\[InvisibleSpace]", "+", 
              SuperscriptBox["D", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"0.9999999999999999`", "\[InvisibleSpace]", "+", 
              RowBox[{"1.`", " ", "D"}], "+", 
              SuperscriptBox["D", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"1.`", " ", "D", " ", "p"}], "+", 
              RowBox[{
               SuperscriptBox["D", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"0.`", " ", "p"}], "+", 
                 RowBox[{"0.`", " ", 
                  SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
              RowBox[{"3.`", " ", 
               SuperscriptBox["D", "2"]}], "+", 
              SuperscriptBox["D", "4"]}], ")"}], "2"]]}], ")"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1.`"}], "+", 
        RowBox[{
         SuperscriptBox["D", "4"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "16.`"}], "+", 
           RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["D", "6"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "14.`"}], "+", 
           RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["D", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "7.`"}], "+", 
           RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["D", "5"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "6.`"}], "+", 
           RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["D", "7"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "6.`"}], "+", 
           RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["D", "8"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "6.`"}], "+", 
           RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["D", "3"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "2.`"}], "+", 
           RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["D", "9"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "2.`"}], "+", 
           RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["D", "10"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1.`"}], "+", 
           RowBox[{"0.`", " ", "p"}]}], ")"}]}]}], ")"}]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1.`", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
           RowBox[{"3.`", " ", 
            SuperscriptBox["D", "2"]}], "+", 
           SuperscriptBox["D", "4"]}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"0.`", " ", 
           SuperscriptBox["D", "2"]}], "+", 
          RowBox[{"0.`", " ", 
           SuperscriptBox["D", "3"]}], "+", 
          RowBox[{"0.`", " ", 
           SuperscriptBox["D", "4"]}], "+", 
          RowBox[{"0.`", " ", 
           SuperscriptBox["D", "5"]}], "+", 
          RowBox[{"0.`", " ", 
           SuperscriptBox["D", "6"]}], "+", 
          RowBox[{"0.`", " ", 
           SuperscriptBox["D", "7"]}], "+", 
          RowBox[{"0.`", " ", 
           SuperscriptBox["D", "8"]}], "+", 
          RowBox[{"0.`", " ", 
           SuperscriptBox["D", "9"]}], "+", 
          RowBox[{"0.`", " ", 
           SuperscriptBox["D", "10"]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"1.`", " ", "D", " ", 
             RowBox[{"(", 
              RowBox[{"1.`", "\[InvisibleSpace]", "+", 
               SuperscriptBox["D", "2"]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{"0.9999999999999999`", "\[InvisibleSpace]", "+", 
               RowBox[{"1.`", " ", "D"}], "+", 
               SuperscriptBox["D", "2"]}], ")"}], " ", "p", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1.`"}], "-", 
               RowBox[{"1.`", " ", 
                SuperscriptBox["D", "3"]}], "-", 
               RowBox[{"1.`", " ", 
                SuperscriptBox["D", "4"]}], "+", 
               RowBox[{"D", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1.`"}], "+", 
                  RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox["D", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "2.`"}], "+", 
                  RowBox[{"0.`", " ", "p"}], "+", 
                  RowBox[{"0.`", " ", 
                   SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
               RowBox[{"3.`", " ", 
                SuperscriptBox["D", "2"]}], "+", 
               SuperscriptBox["D", "4"]}], ")"}], "2"]]}], "-", 
          FractionBox[
           RowBox[{"1.`", " ", "D", " ", 
            RowBox[{"(", 
             RowBox[{"1.`", "\[InvisibleSpace]", "+", 
              SuperscriptBox["D", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"0.9999999999999999`", "\[InvisibleSpace]", "+", 
              RowBox[{"1.`", " ", "D"}], "+", 
              SuperscriptBox["D", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"1.`", "\[InvisibleSpace]", "-", 
              RowBox[{"1.`", " ", "p"}]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"1.`", " ", "D", " ", "p"}], "+", 
              RowBox[{
               SuperscriptBox["D", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"0.`", " ", "p"}], "+", 
                 RowBox[{"0.`", " ", 
                  SuperscriptBox["p", "2"]}]}], ")"}]}]}], ")"}]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
              RowBox[{"3.`", " ", 
               SuperscriptBox["D", "2"]}], "+", 
              SuperscriptBox["D", "4"]}], ")"}], "2"]]}], ")"}]}], ")"}], "/", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1.`"}], "+", 
         RowBox[{
          SuperscriptBox["D", "4"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "16.`"}], "+", 
            RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["D", "6"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "14.`"}], "+", 
            RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["D", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "7.`"}], "+", 
            RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["D", "5"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "6.`"}], "+", 
            RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["D", "7"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "6.`"}], "+", 
            RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["D", "8"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "6.`"}], "+", 
            RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["D", "3"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "2.`"}], "+", 
            RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["D", "9"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "2.`"}], "+", 
            RowBox[{"0.`", " ", "p"}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["D", "10"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1.`"}], "+", 
            RowBox[{"0.`", " ", "p"}]}], ")"}]}]}], ")"}], "2"]}]}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.528809241775629*^9, 3.528809274582487*^9}, {
   3.5288094542012024`*^9, 3.5288094748244386`*^9}, 3.5288124684708004`*^9, {
   3.5288125451917353`*^9, 3.5288125682173758`*^9}, 3.528812719802842*^9, 
   3.528813009495351*^9, 3.5288130495250216`*^9, {3.52881316259402*^9, 
   3.52881318547926*^9}, 3.5288132436985617`*^9, {3.52881328215263*^9, 
   3.528813298782259*^9}, 3.528813334880722*^9, 3.5288135016898794`*^9, {
   3.52881360441606*^9, 3.52881362127969*^9}, {3.528813687845007*^9, 
   3.528813697080223*^9}, 3.528813747478967*^9, 3.528813815604287*^9, 
   3.5288138620299683`*^9, 3.528813972868163*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"FIVE", " ", 
    RowBox[{"PERIODS", " ", "--"}], " ", "WORKS"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ZA", "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"A", "+", 
       RowBox[{"D", "*", "Q1"}], "+", 
       RowBox[{"p", "*", "D", "*", 
        RowBox[{"(", 
         RowBox[{"A", "-", "B"}], ")"}]}], "+", "Y2"}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"D", "^", 
        RowBox[{"{", "2", "}"}]}]}], ")"}]}]}], "\[IndentingNewLine]", 
   RowBox[{"ZB", "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"B", "+", 
       RowBox[{"D", "*", "Q1"}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}], "*", "D", "*", 
        RowBox[{"(", 
         RowBox[{"B", "-", "A"}], ")"}]}], "+", "Y2"}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"D", "^", 
        RowBox[{"{", "2", "}"}]}]}], ")"}]}]}], "\[IndentingNewLine]", 
   RowBox[{"UA", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"A", "+", "Y1", "+", 
        RowBox[{"D", "*", "Q0"}]}], ")"}], "*", "Q1"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"A", "+", 
        RowBox[{"D", "*", "Q0"}]}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "p"}], ")"}], "*", 
         RowBox[{"(", "ZA", ")"}]}], "+", 
        RowBox[{"p", "*", 
         RowBox[{"(", "ZB", ")"}]}]}], ")"}]}], "-", 
     RowBox[{"0.5", "*", 
      RowBox[{"Q1", "^", 
       RowBox[{"{", "2", "}"}]}]}], "-", 
     RowBox[{"0.5", "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "p"}], ")"}], "*", "ZA"}], "+", 
         RowBox[{"p", "*", "ZB"}]}], ")"}], "^", 
       RowBox[{"{", "2", "}"}]}]}]}]}], "\[IndentingNewLine]", 
   RowBox[{"UB", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"B", "+", "Y1", "+", 
        RowBox[{"D", "*", "Q0"}]}], ")"}], "*", "Q1"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"B", "+", 
        RowBox[{"D", "*", "Q0"}]}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "p"}], ")"}], "*", 
         RowBox[{"(", "ZA", ")"}]}], "+", 
        RowBox[{"p", "*", 
         RowBox[{"(", "ZB", ")"}]}]}], ")"}]}], "-", 
     RowBox[{"0.5", "*", 
      RowBox[{"Q1", "^", 
       RowBox[{"{", "2", "}"}]}]}], "-", 
     RowBox[{"0.5", "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "p"}], ")"}], "*", "ZA"}], "+", 
         RowBox[{"p", "*", "ZB"}]}], ")"}], "^", 
       RowBox[{"{", "2", "}"}]}]}]}]}], "\[IndentingNewLine]", 
   RowBox[{"DUA", "=", 
    RowBox[{"D", "[", 
     RowBox[{"UA", ",", "Q1"}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"DUB", "=", 
    RowBox[{"D", "[", 
     RowBox[{"UB", ",", "Q1"}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"SOLA", "=", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{"DUA", "\[Equal]", "0"}], ",", "Q1"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"SOLB", "=", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{"DUB", "\[Equal]", "0"}], ",", "Q1"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"SOLASIMP", "=", 
    RowBox[{"Simplify", "[", "SOLA", "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"SOLBSIMP", "=", 
    RowBox[{"Simplify", "[", "SOLB", "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"SOLASIMPVALA", " ", "=", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "1.`"}], " ", "B", " ", "D", " ", "p"}], "+", 
       RowBox[{"A", " ", 
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "+", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "2"]}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "3"]}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"]}], "+", 
          RowBox[{"1.`", " ", "D", " ", "p"}]}], ")"}]}], "+", 
       RowBox[{"1.`", " ", "D", " ", "Q0"}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "2"], " ", "Q0"}], "+", 
       RowBox[{"2.`", " ", 
        SuperscriptBox["D", "3"], " ", "Q0"}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "4"], " ", "Q0"}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "5"], " ", "Q0"}], "+", 
       RowBox[{"1.`", " ", "Y1"}], "+", 
       RowBox[{"2.`", " ", 
        SuperscriptBox["D", "2"], " ", "Y1"}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "4"], " ", "Y1"}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "3"], " ", "Y2"}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
       RowBox[{"3.`", " ", 
        SuperscriptBox["D", "2"]}], "+", 
       SuperscriptBox["D", "4"]}], ")"}]}]}], "\[IndentingNewLine]", 
   RowBox[{"SOLBSIMPVALB", " ", "=", " ", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
       RowBox[{"3.`", " ", 
        SuperscriptBox["D", "2"]}], "+", 
       SuperscriptBox["D", "4"]}]], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"B", " ", 
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "+", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "2"]}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "3"]}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"]}], "+", 
          RowBox[{"D", " ", 
           RowBox[{"(", 
            RowBox[{"1.`", "\[InvisibleSpace]", "-", 
             RowBox[{"1.`", " ", "p"}]}], ")"}]}]}], ")"}]}], "+", 
       RowBox[{"A", " ", "D", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1.`"}], "+", 
          RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
       RowBox[{"1.`", " ", "D", " ", "Q0"}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "2"], " ", "Q0"}], "+", 
       RowBox[{"2.`", " ", 
        SuperscriptBox["D", "3"], " ", "Q0"}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "4"], " ", "Q0"}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "5"], " ", "Q0"}], "+", 
       RowBox[{"1.`", " ", "Y1"}], "+", 
       RowBox[{"2.`", " ", 
        SuperscriptBox["D", "2"], " ", "Y1"}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "4"], " ", "Y1"}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "3"], " ", "Y2"}]}], ")"}]}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"VA", " ", "=", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"A", "+", "Y0", "+", 
        RowBox[{"D", "*", "Q"}]}], ")"}], "*", "Q0"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"A", "+", "Y1", "+", 
        RowBox[{"D", "*", "Q"}]}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "p"}], ")"}], "*", 
         RowBox[{"(", "SOLASIMPVALA", ")"}]}], "+", 
        RowBox[{"p", "*", 
         RowBox[{"(", "SOLBSIMPVALB", ")"}]}]}], ")"}]}], "-", 
     RowBox[{"0.5", "*", 
      RowBox[{"Q0", "^", 
       RowBox[{"{", "2", "}"}]}]}], "-", 
     RowBox[{"0.5", "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "p"}], ")"}], "*", "SOLASIMPVALA"}], "+", 
         RowBox[{"p", "*", "SOLBSIMPVALB"}]}], ")"}], "^", 
       RowBox[{"{", "2", "}"}]}]}]}]}], "\[IndentingNewLine]", 
   RowBox[{"VB", " ", "=", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"B", "+", "Y0", "+", 
        RowBox[{"D", "*", "Q"}]}], ")"}], "*", "Q0"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"B", "+", "Y1", "+", 
        RowBox[{"D", "*", "Q"}]}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "p"}], ")"}], "*", 
         RowBox[{"(", "SOLASIMPVALA", ")"}]}], "+", 
        RowBox[{"p", "*", 
         RowBox[{"(", "SOLBSIMPVALB", ")"}]}]}], ")"}]}], "-", 
     RowBox[{"0.5", "*", 
      RowBox[{"Q0", "^", 
       RowBox[{"{", "2", "}"}]}]}], "-", 
     RowBox[{"0.5", "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "p"}], ")"}], "*", "SOLASIMPVALA"}], "+", 
         RowBox[{"p", "*", "SOLBSIMPVALB"}]}], ")"}], "^", 
       RowBox[{"{", "2", "}"}]}]}]}]}], "\[IndentingNewLine]", 
   RowBox[{"DVA", " ", "=", " ", 
    RowBox[{"D", "[", 
     RowBox[{"VA", ",", "Q0"}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"DVB", "=", " ", 
    RowBox[{"D", "[", 
     RowBox[{"VB", ",", "Q0"}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"SOLVA", " ", "=", " ", 
    RowBox[{"Simplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"DVA", "\[Equal]", "0"}], ",", "Q0"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"SOLVB", " ", "=", " ", 
    RowBox[{"Simplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"DVB", "\[Equal]", "0"}], ",", "Q0"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"SOLVAEXP", "=", " ", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"(", 
       RowBox[{"1.`", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"1.`", " ", "B", " ", "D", " ", 
           RowBox[{"(", 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"0.509280870006431`", "\[InvisibleSpace]", "-", 
             RowBox[{"0.35019639436735767`", " ", "D"}], "+", 
             SuperscriptBox["D", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"0.9999999999999999`", "\[InvisibleSpace]", "+", 
             RowBox[{"1.`", " ", "D"}], "+", 
             SuperscriptBox["D", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"1.9635530389888245`", "\[InvisibleSpace]", "+", 
             RowBox[{"1.3501963943673576`", " ", "D"}], "+", 
             SuperscriptBox["D", "2"]}], ")"}], " ", "p"}], "+", 
          RowBox[{"A", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1.0000000000000004`"}], "+", 
             RowBox[{
              SuperscriptBox["D", "5"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1.`"}], "-", 
                RowBox[{"7.`", " ", "p"}]}], ")"}]}], "+", 
             RowBox[{
              SuperscriptBox["D", "6"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "5.`"}], "-", 
                RowBox[{"5.`", " ", "p"}]}], ")"}]}], "+", 
             RowBox[{
              SuperscriptBox["D", "4"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "11.`"}], "-", 
                RowBox[{"4.`", " ", "p"}]}], ")"}]}], "+", 
             RowBox[{
              SuperscriptBox["D", "3"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1.`"}], "-", 
                RowBox[{"4.`", " ", "p"}]}], ")"}]}], "+", 
             RowBox[{
              SuperscriptBox["D", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "6.000000000000002`"}], "-", 
                RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
             RowBox[{"D", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "2.220446049250313`*^-16"}], "-", 
                RowBox[{"1.`", " ", "p"}]}], ")"}]}], "-", 
             RowBox[{"5.`", " ", 
              SuperscriptBox["D", "7"], " ", "p"}], "-", 
             RowBox[{"2.`", " ", 
              SuperscriptBox["D", "8"], " ", "p"}], "-", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "9"], " ", "p"}]}], ")"}]}], "-", 
          RowBox[{"1.0000000000000004`", " ", "D", " ", "Q"}], "-", 
          RowBox[{"1.0000000000000002`", " ", 
           SuperscriptBox["D", "2"], " ", "Q"}], "-", 
          RowBox[{"7.000000000000002`", " ", 
           SuperscriptBox["D", "3"], " ", "Q"}], "-", 
          RowBox[{"5.`", " ", 
           SuperscriptBox["D", "4"], " ", "Q"}], "-", 
          RowBox[{"15.`", " ", 
           SuperscriptBox["D", "5"], " ", "Q"}], "-", 
          RowBox[{"8.`", " ", 
           SuperscriptBox["D", "6"], " ", "Q"}], "-", 
          RowBox[{"10.`", " ", 
           SuperscriptBox["D", "7"], " ", "Q"}], "-", 
          RowBox[{"5.`", " ", 
           SuperscriptBox["D", "8"], " ", "Q"}], "-", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "9"], " ", "Q"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "10"], " ", "Q"}], "-", 
          RowBox[{"1.0000000000000004`", " ", "Y0"}], "-", 
          RowBox[{"6.000000000000002`", " ", 
           SuperscriptBox["D", "2"], " ", "Y0"}], "-", 
          RowBox[{"11.`", " ", 
           SuperscriptBox["D", "4"], " ", "Y0"}], "-", 
          RowBox[{"6.`", " ", 
           SuperscriptBox["D", "6"], " ", "Y0"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "8"], " ", "Y0"}], "-", 
          RowBox[{"2.220446049250313`*^-16", " ", "D", " ", "Y1"}], "-", 
          RowBox[{"2.220446049250313`*^-16", " ", 
           SuperscriptBox["D", "2"], " ", "Y1"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "3"], " ", "Y1"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"], " ", "Y1"}], "-", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "5"], " ", "Y1"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "6"], " ", "Y1"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "7"], " ", "Y1"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"], " ", "Y2"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "5"], " ", "Y2"}], "+", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "6"], " ", "Y2"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "7"], " ", "Y2"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "8"], " ", "Y2"}]}], ")"}]}], ")"}]}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1.3610953328233535`", "\[InvisibleSpace]", "-", 
         RowBox[{"0.7450895250672199`", " ", "D"}], "+", 
         SuperscriptBox["D", "2"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"0.25130703272824556`", "\[InvisibleSpace]", "-", 
         RowBox[{"0.16161345782896566`", " ", "D"}], "+", 
         SuperscriptBox["D", "2"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"0.47615593786216687`", "\[InvisibleSpace]", "+", 
         RowBox[{"0.14493478041901153`", " ", "D"}], "+", 
         SuperscriptBox["D", "2"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1.7714995242608043`", "\[InvisibleSpace]", "+", 
         RowBox[{"0.3235385864111817`", " ", "D"}], "+", 
         SuperscriptBox["D", "2"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"3.46590431145028`", "\[InvisibleSpace]", "+", 
         RowBox[{"2.438229616065992`", " ", "D"}], "+", 
         SuperscriptBox["D", "2"]}], ")"}]}], ")"}]}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"SOLVBEXP", "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"B", " ", 
        RowBox[{"(", 
         RowBox[{"1.0000000000000004`", "\[InvisibleSpace]", "+", 
          RowBox[{
           SuperscriptBox["D", "5"], " ", 
           RowBox[{"(", 
            RowBox[{"8.`", "\[InvisibleSpace]", "-", 
             RowBox[{"7.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["D", "7"], " ", 
           RowBox[{"(", 
            RowBox[{"5.`", "\[InvisibleSpace]", "-", 
             RowBox[{"5.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["D", "6"], " ", 
           RowBox[{"(", 
            RowBox[{"10.`", "\[InvisibleSpace]", "-", 
             RowBox[{"5.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["D", "3"], " ", 
           RowBox[{"(", 
            RowBox[{"5.`", "\[InvisibleSpace]", "-", 
             RowBox[{"4.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["D", "4"], " ", 
           RowBox[{"(", 
            RowBox[{"15.`", "\[InvisibleSpace]", "-", 
             RowBox[{"4.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["D", "8"], " ", 
           RowBox[{"(", 
            RowBox[{"2.`", "\[InvisibleSpace]", "-", 
             RowBox[{"2.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["D", "9"], " ", 
           RowBox[{"(", 
            RowBox[{"1.`", "\[InvisibleSpace]", "-", 
             RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{"D", " ", 
           RowBox[{"(", 
            RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "-", 
             RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["D", "2"], " ", 
           RowBox[{"(", 
            RowBox[{"7.000000000000002`", "\[InvisibleSpace]", "-", 
             RowBox[{"1.`", " ", "p"}]}], ")"}]}]}], ")"}]}], "+", 
       RowBox[{"A", " ", "D", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1.`"}], "+", 
          RowBox[{"1.`", " ", "p"}], "+", 
          RowBox[{"D", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1.`"}], "+", 
             RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["D", "8"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1.`"}], "+", 
             RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["D", "7"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "2.`"}], "+", 
             RowBox[{"2.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["D", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "4.`"}], "+", 
             RowBox[{"4.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["D", "3"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "4.`"}], "+", 
             RowBox[{"4.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["D", "5"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "5.`"}], "+", 
             RowBox[{"5.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["D", "6"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "5.`"}], "+", 
             RowBox[{"5.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["D", "4"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "7.`"}], "+", 
             RowBox[{"7.`", " ", "p"}]}], ")"}]}]}], ")"}]}], "+", 
       RowBox[{"1.0000000000000004`", " ", "D", " ", "Q"}], "+", 
       RowBox[{"1.0000000000000002`", " ", 
        SuperscriptBox["D", "2"], " ", "Q"}], "+", 
       RowBox[{"7.000000000000002`", " ", 
        SuperscriptBox["D", "3"], " ", "Q"}], "+", 
       RowBox[{"5.`", " ", 
        SuperscriptBox["D", "4"], " ", "Q"}], "+", 
       RowBox[{"15.`", " ", 
        SuperscriptBox["D", "5"], " ", "Q"}], "+", 
       RowBox[{"8.`", " ", 
        SuperscriptBox["D", "6"], " ", "Q"}], "+", 
       RowBox[{"10.`", " ", 
        SuperscriptBox["D", "7"], " ", "Q"}], "+", 
       RowBox[{"5.`", " ", 
        SuperscriptBox["D", "8"], " ", "Q"}], "+", 
       RowBox[{"2.`", " ", 
        SuperscriptBox["D", "9"], " ", "Q"}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "10"], " ", "Q"}], "+", 
       RowBox[{"1.0000000000000004`", " ", "Y0"}], "+", 
       RowBox[{"6.000000000000002`", " ", 
        SuperscriptBox["D", "2"], " ", "Y0"}], "+", 
       RowBox[{"11.`", " ", 
        SuperscriptBox["D", "4"], " ", "Y0"}], "+", 
       RowBox[{"6.`", " ", 
        SuperscriptBox["D", "6"], " ", "Y0"}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "8"], " ", "Y0"}], "+", 
       RowBox[{"2.220446049250313`*^-16", " ", "D", " ", "Y1"}], "+", 
       RowBox[{"2.220446049250313`*^-16", " ", 
        SuperscriptBox["D", "2"], " ", "Y1"}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "3"], " ", "Y1"}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "4"], " ", "Y1"}], "+", 
       RowBox[{"2.`", " ", 
        SuperscriptBox["D", "5"], " ", "Y1"}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "6"], " ", "Y1"}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "7"], " ", "Y1"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "4"], " ", "Y2"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "5"], " ", "Y2"}], "-", 
       RowBox[{"2.`", " ", 
        SuperscriptBox["D", "6"], " ", "Y2"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "7"], " ", "Y2"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "8"], " ", "Y2"}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1.3610953328233535`", "\[InvisibleSpace]", "-", 
         RowBox[{"0.7450895250672199`", " ", "D"}], "+", 
         SuperscriptBox["D", "2"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"0.25130703272824556`", "\[InvisibleSpace]", "-", 
         RowBox[{"0.16161345782896566`", " ", "D"}], "+", 
         SuperscriptBox["D", "2"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"0.47615593786216687`", "\[InvisibleSpace]", "+", 
         RowBox[{"0.14493478041901153`", " ", "D"}], "+", 
         SuperscriptBox["D", "2"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1.7714995242608043`", "\[InvisibleSpace]", "+", 
         RowBox[{"0.3235385864111817`", " ", "D"}], "+", 
         SuperscriptBox["D", "2"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"3.46590431145028`", "\[InvisibleSpace]", "+", 
         RowBox[{"2.438229616065992`", " ", "D"}], "+", 
         SuperscriptBox["D", "2"]}], ")"}]}], ")"}]}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"WA", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"A", "+", "Y"}], ")"}], "*", "Q"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"A", "+", "Y0"}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "p"}], ")"}], "*", 
         RowBox[{"(", "SOLVAEXP", ")"}]}], "+", 
        RowBox[{"p", "*", 
         RowBox[{"(", "SOLBVEXP", ")"}]}]}], ")"}]}], "-", 
     RowBox[{"0.5", "*", 
      RowBox[{"Q0", "^", 
       RowBox[{"{", "2", "}"}]}]}], "-", 
     RowBox[{"0.5", "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "p"}], ")"}], "*", "SOLVAEXP"}], "+", 
         RowBox[{"p", "*", "SOLBVEXP"}]}], ")"}], "^", 
       RowBox[{"{", "2", "}"}]}]}]}]}], "\[IndentingNewLine]", 
   RowBox[{"DWA", " ", "=", " ", 
    RowBox[{"D", "[", 
     RowBox[{"WA", ",", "Q"}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"SOL5", "=", 
    RowBox[{"Simplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"DWA", "\[Equal]", "0"}], ",", "Q"}], "]"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"D", "[", 
    RowBox[{"SOL5", ",", "p"}], "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.527962800131414*^9, 3.527963036254429*^9}, {
   3.527963092399927*^9, 3.5279631153319674`*^9}, {3.527963169028262*^9, 
   3.5279632023187203`*^9}, {3.527963234454777*^9, 3.5279632624880257`*^9}, {
   3.5279633647772737`*^9, 3.5279633749640913`*^9}, {3.5283855358867145`*^9, 
   3.528385748421488*^9}, {3.528385825579223*^9, 3.5283858279660273`*^9}, {
   3.5283858838609257`*^9, 3.5283858924721403`*^9}, 3.5283859327514114`*^9, {
   3.5283860342617893`*^9, 3.5283860702198524`*^9}, {3.528386141872779*^9, 
   3.5283861890004616`*^9}, {3.5283863841880045`*^9, 3.528386426651279*^9}, {
   3.528386543791885*^9, 3.5283865549927044`*^9}, {3.5283866033371897`*^9, 
   3.5283866761581173`*^9}, {3.5283867207273955`*^9, 
   3.5283867762010927`*^9}, {3.528386816043563*^9, 3.528386817104365*^9}, {
   3.5283869364913745`*^9, 3.528386937910977*^9}, {3.528386970983404*^9, 
   3.52838709761668*^9}, {3.5283871430595603`*^9, 3.528387284647099*^9}, {
   3.528387322399165*^9, 3.5283873909300857`*^9}, {3.528387431281619*^9, 
   3.528387570348505*^9}, {3.5283876069617696`*^9, 3.5283876246522007`*^9}, {
   3.528388524766735*^9, 3.528388536123555*^9}, {3.528388581098434*^9, 
   3.5283885945144577`*^9}, {3.528388664792581*^9, 3.528388674417798*^9}, {
   3.528388951502885*^9, 3.5283889517524853`*^9}, {3.528809113995805*^9, 
   3.5288091272402277`*^9}, {3.528809225504801*^9, 3.5288092374232216`*^9}, {
   3.5288093632530427`*^9, 3.528809388712287*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  FractionBox[
   RowBox[{"A", "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"A", "-", "B"}], ")"}], " ", "D", " ", "p"}], "+", 
    RowBox[{"D", " ", "Q1"}], "+", "Y2"}], 
   RowBox[{"1", "+", 
    SuperscriptBox["D", "2"]}]], "}"}]], "Output",
 CellChangeTimes->{
  3.528386327747105*^9, 3.528386486929785*^9, 3.528386560827115*^9, 
   3.5283866852529335`*^9, {3.528386735656622*^9, 3.528386777199495*^9}, 
   3.528386819569169*^9, 3.5283870510817986`*^9, 3.5283871016102877`*^9, 
   3.5283871809052267`*^9, 3.528387291854312*^9, 3.5283873948456926`*^9, 
   3.5283874878005185`*^9, {3.5283875533444753`*^9, 3.528387571440507*^9}, 
   3.528387626664604*^9, {3.5283883586576433`*^9, 3.5283883681736603`*^9}, 
   3.5283885376835575`*^9, 3.528388595481659*^9, 3.528388674932599*^9, 
   3.528809066041321*^9, 3.528809131062235*^9, 3.528809226986803*^9, {
   3.5288093702886553`*^9, 3.5288093894298887`*^9}, 3.5288140092786274`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  FractionBox[
   RowBox[{"B", "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "A"}], "+", "B"}], ")"}], " ", "D", " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", "p"}], ")"}]}], "+", 
    RowBox[{"D", " ", "Q1"}], "+", "Y2"}], 
   RowBox[{"1", "+", 
    SuperscriptBox["D", "2"]}]], "}"}]], "Output",
 CellChangeTimes->{
  3.528386327747105*^9, 3.528386486929785*^9, 3.528386560827115*^9, 
   3.5283866852529335`*^9, {3.528386735656622*^9, 3.528386777199495*^9}, 
   3.528386819569169*^9, 3.5283870510817986`*^9, 3.5283871016102877`*^9, 
   3.5283871809052267`*^9, 3.528387291854312*^9, 3.5283873948456926`*^9, 
   3.5283874878005185`*^9, {3.5283875533444753`*^9, 3.528387571440507*^9}, 
   3.528387626664604*^9, {3.5283883586576433`*^9, 3.5283883681736603`*^9}, 
   3.5283885376835575`*^9, 3.528388595481659*^9, 3.528388674932599*^9, 
   3.528809066041321*^9, 3.528809131062235*^9, 3.528809226986803*^9, {
   3.5288093702886553`*^9, 3.5288093894298887`*^9}, 3.5288140092786274`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "0.5`"}], " ", 
    SuperscriptBox["Q1", "2"]}], "+", 
   RowBox[{"Q1", " ", 
    RowBox[{"(", 
     RowBox[{"A", "+", 
      RowBox[{"D", " ", "Q0"}], "+", "Y1"}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"A", "+", 
      RowBox[{"D", " ", "Q0"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"p", " ", 
        RowBox[{"(", 
         RowBox[{"B", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "A"}], "+", "B"}], ")"}], " ", "D", " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", "p"}], ")"}]}], "+", 
          RowBox[{"D", " ", "Q1"}], "+", "Y2"}], ")"}]}], 
       RowBox[{"1", "+", 
        SuperscriptBox["D", "2"]}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"A", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"A", "-", "B"}], ")"}], " ", "D", " ", "p"}], "+", 
          RowBox[{"D", " ", "Q1"}], "+", "Y2"}], ")"}]}], 
       RowBox[{"1", "+", 
        SuperscriptBox["D", "2"]}]]}], ")"}]}], "-", 
   RowBox[{"0.5`", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        RowBox[{"p", " ", 
         RowBox[{"(", 
          RowBox[{"B", "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "A"}], "+", "B"}], ")"}], " ", "D", " ", 
            RowBox[{"(", 
             RowBox[{"1", "-", "p"}], ")"}]}], "+", 
           RowBox[{"D", " ", "Q1"}], "+", "Y2"}], ")"}]}], 
        RowBox[{"1", "+", 
         SuperscriptBox["D", "2"]}]], "+", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "p"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"A", "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"A", "-", "B"}], ")"}], " ", "D", " ", "p"}], "+", 
           RowBox[{"D", " ", "Q1"}], "+", "Y2"}], ")"}]}], 
        RowBox[{"1", "+", 
         SuperscriptBox["D", "2"]}]]}], ")"}], "2"]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.528386327747105*^9, 3.528386486929785*^9, 3.528386560827115*^9, 
   3.5283866852529335`*^9, {3.528386735656622*^9, 3.528386777199495*^9}, 
   3.528386819569169*^9, 3.5283870510817986`*^9, 3.5283871016102877`*^9, 
   3.5283871809052267`*^9, 3.528387291854312*^9, 3.5283873948456926`*^9, 
   3.5283874878005185`*^9, {3.5283875533444753`*^9, 3.528387571440507*^9}, 
   3.528387626664604*^9, {3.5283883586576433`*^9, 3.5283883681736603`*^9}, 
   3.5283885376835575`*^9, 3.528388595481659*^9, 3.528388674932599*^9, 
   3.528809066041321*^9, 3.528809131062235*^9, 3.528809226986803*^9, {
   3.5288093702886553`*^9, 3.5288093894298887`*^9}, 3.528814009294227*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "0.5`"}], " ", 
    SuperscriptBox["Q1", "2"]}], "+", 
   RowBox[{"Q1", " ", 
    RowBox[{"(", 
     RowBox[{"B", "+", 
      RowBox[{"D", " ", "Q0"}], "+", "Y1"}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"B", "+", 
      RowBox[{"D", " ", "Q0"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"p", " ", 
        RowBox[{"(", 
         RowBox[{"B", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "A"}], "+", "B"}], ")"}], " ", "D", " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", "p"}], ")"}]}], "+", 
          RowBox[{"D", " ", "Q1"}], "+", "Y2"}], ")"}]}], 
       RowBox[{"1", "+", 
        SuperscriptBox["D", "2"]}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"A", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"A", "-", "B"}], ")"}], " ", "D", " ", "p"}], "+", 
          RowBox[{"D", " ", "Q1"}], "+", "Y2"}], ")"}]}], 
       RowBox[{"1", "+", 
        SuperscriptBox["D", "2"]}]]}], ")"}]}], "-", 
   RowBox[{"0.5`", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        RowBox[{"p", " ", 
         RowBox[{"(", 
          RowBox[{"B", "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "A"}], "+", "B"}], ")"}], " ", "D", " ", 
            RowBox[{"(", 
             RowBox[{"1", "-", "p"}], ")"}]}], "+", 
           RowBox[{"D", " ", "Q1"}], "+", "Y2"}], ")"}]}], 
        RowBox[{"1", "+", 
         SuperscriptBox["D", "2"]}]], "+", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "p"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"A", "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"A", "-", "B"}], ")"}], " ", "D", " ", "p"}], "+", 
           RowBox[{"D", " ", "Q1"}], "+", "Y2"}], ")"}]}], 
        RowBox[{"1", "+", 
         SuperscriptBox["D", "2"]}]]}], ")"}], "2"]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.528386327747105*^9, 3.528386486929785*^9, 3.528386560827115*^9, 
   3.5283866852529335`*^9, {3.528386735656622*^9, 3.528386777199495*^9}, 
   3.528386819569169*^9, 3.5283870510817986`*^9, 3.5283871016102877`*^9, 
   3.5283871809052267`*^9, 3.528387291854312*^9, 3.5283873948456926`*^9, 
   3.5283874878005185`*^9, {3.5283875533444753`*^9, 3.528387571440507*^9}, 
   3.528387626664604*^9, {3.5283883586576433`*^9, 3.5283883681736603`*^9}, 
   3.5283885376835575`*^9, 3.528388595481659*^9, 3.528388674932599*^9, 
   3.528809066041321*^9, 3.528809131062235*^9, 3.528809226986803*^9, {
   3.5288093702886553`*^9, 3.5288093894298887`*^9}, 3.528814009309827*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"A", "+", 
   RowBox[{"D", " ", "Q0"}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"D", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}]}], 
       RowBox[{"1", "+", 
        SuperscriptBox["D", "2"]}]], "+", 
      FractionBox[
       RowBox[{"D", " ", "p"}], 
       RowBox[{"1", "+", 
        SuperscriptBox["D", "2"]}]]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"A", "+", 
      RowBox[{"D", " ", "Q0"}]}], ")"}]}], "-", 
   RowBox[{"1.`", " ", "Q1"}], "+", "Y1", "-", 
   RowBox[{"1.`", " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"D", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}]}], 
       RowBox[{"1", "+", 
        SuperscriptBox["D", "2"]}]], "+", 
      FractionBox[
       RowBox[{"D", " ", "p"}], 
       RowBox[{"1", "+", 
        SuperscriptBox["D", "2"]}]]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"p", " ", 
        RowBox[{"(", 
         RowBox[{"B", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "A"}], "+", "B"}], ")"}], " ", "D", " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", "p"}], ")"}]}], "+", 
          RowBox[{"D", " ", "Q1"}], "+", "Y2"}], ")"}]}], 
       RowBox[{"1", "+", 
        SuperscriptBox["D", "2"]}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"A", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"A", "-", "B"}], ")"}], " ", "D", " ", "p"}], "+", 
          RowBox[{"D", " ", "Q1"}], "+", "Y2"}], ")"}]}], 
       RowBox[{"1", "+", 
        SuperscriptBox["D", "2"]}]]}], ")"}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.528386327747105*^9, 3.528386486929785*^9, 3.528386560827115*^9, 
   3.5283866852529335`*^9, {3.528386735656622*^9, 3.528386777199495*^9}, 
   3.528386819569169*^9, 3.5283870510817986`*^9, 3.5283871016102877`*^9, 
   3.5283871809052267`*^9, 3.528387291854312*^9, 3.5283873948456926`*^9, 
   3.5283874878005185`*^9, {3.5283875533444753`*^9, 3.528387571440507*^9}, 
   3.528387626664604*^9, {3.5283883586576433`*^9, 3.5283883681736603`*^9}, 
   3.5283885376835575`*^9, 3.528388595481659*^9, 3.528388674932599*^9, 
   3.528809066041321*^9, 3.528809131062235*^9, 3.528809226986803*^9, {
   3.5288093702886553`*^9, 3.5288093894298887`*^9}, 3.528814009325427*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"B", "+", 
   RowBox[{"D", " ", "Q0"}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"D", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}]}], 
       RowBox[{"1", "+", 
        SuperscriptBox["D", "2"]}]], "+", 
      FractionBox[
       RowBox[{"D", " ", "p"}], 
       RowBox[{"1", "+", 
        SuperscriptBox["D", "2"]}]]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"B", "+", 
      RowBox[{"D", " ", "Q0"}]}], ")"}]}], "-", 
   RowBox[{"1.`", " ", "Q1"}], "+", "Y1", "-", 
   RowBox[{"1.`", " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"D", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}]}], 
       RowBox[{"1", "+", 
        SuperscriptBox["D", "2"]}]], "+", 
      FractionBox[
       RowBox[{"D", " ", "p"}], 
       RowBox[{"1", "+", 
        SuperscriptBox["D", "2"]}]]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"p", " ", 
        RowBox[{"(", 
         RowBox[{"B", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "A"}], "+", "B"}], ")"}], " ", "D", " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", "p"}], ")"}]}], "+", 
          RowBox[{"D", " ", "Q1"}], "+", "Y2"}], ")"}]}], 
       RowBox[{"1", "+", 
        SuperscriptBox["D", "2"]}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"A", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"A", "-", "B"}], ")"}], " ", "D", " ", "p"}], "+", 
          RowBox[{"D", " ", "Q1"}], "+", "Y2"}], ")"}]}], 
       RowBox[{"1", "+", 
        SuperscriptBox["D", "2"]}]]}], ")"}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.528386327747105*^9, 3.528386486929785*^9, 3.528386560827115*^9, 
   3.5283866852529335`*^9, {3.528386735656622*^9, 3.528386777199495*^9}, 
   3.528386819569169*^9, 3.5283870510817986`*^9, 3.5283871016102877`*^9, 
   3.5283871809052267`*^9, 3.528387291854312*^9, 3.5283873948456926`*^9, 
   3.5283874878005185`*^9, {3.5283875533444753`*^9, 3.528387571440507*^9}, 
   3.528387626664604*^9, {3.5283883586576433`*^9, 3.5283883681736603`*^9}, 
   3.5283885376835575`*^9, 3.528388595481659*^9, 3.528388674932599*^9, 
   3.528809066041321*^9, 3.528809131062235*^9, 3.528809226986803*^9, {
   3.5288093702886553`*^9, 3.5288093894298887`*^9}, 3.5288140093410273`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"Q1", "\[Rule]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "1.`"}], " ", "A"}], "+", 
       FractionBox[
        RowBox[{"1.`", " ", "A", " ", 
         RowBox[{"(", 
          RowBox[{"1.`", "\[InvisibleSpace]", "-", 
           RowBox[{"1.`", " ", "p"}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"D", " ", 
             RowBox[{"(", 
              RowBox[{"1.`", "\[InvisibleSpace]", "-", 
               RowBox[{"1.`", " ", "p"}]}], ")"}]}], 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}]], "+", 
           FractionBox[
            RowBox[{"D", " ", "p"}], 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}]]}], ")"}]}], 
        RowBox[{"1.`", "\[InvisibleSpace]", "+", 
         SuperscriptBox["D", "2"]}]], "+", 
       FractionBox[
        RowBox[{"1.`", " ", "B", " ", "p", " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"D", " ", 
             RowBox[{"(", 
              RowBox[{"1.`", "\[InvisibleSpace]", "-", 
               RowBox[{"1.`", " ", "p"}]}], ")"}]}], 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}]], "+", 
           FractionBox[
            RowBox[{"D", " ", "p"}], 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}]]}], ")"}]}], 
        RowBox[{"1.`", "\[InvisibleSpace]", "+", 
         SuperscriptBox["D", "2"]}]], "+", 
       FractionBox[
        RowBox[{"1.`", " ", 
         RowBox[{"(", 
          RowBox[{"A", "-", 
           RowBox[{"1.`", " ", "B"}]}], ")"}], " ", "D", " ", 
         RowBox[{"(", 
          RowBox[{"1.`", "\[InvisibleSpace]", "-", 
           RowBox[{"1.`", " ", "p"}]}], ")"}], " ", "p", " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"D", " ", 
             RowBox[{"(", 
              RowBox[{"1.`", "\[InvisibleSpace]", "-", 
               RowBox[{"1.`", " ", "p"}]}], ")"}]}], 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}]], "+", 
           FractionBox[
            RowBox[{"D", " ", "p"}], 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}]]}], ")"}]}], 
        RowBox[{"1.`", "\[InvisibleSpace]", "+", 
         SuperscriptBox["D", "2"]}]], "+", 
       FractionBox[
        RowBox[{"1.`", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "1.`"}], " ", "A"}], "+", "B"}], ")"}], " ", "D", 
         " ", 
         RowBox[{"(", 
          RowBox[{"1.`", "\[InvisibleSpace]", "-", 
           RowBox[{"1.`", " ", "p"}]}], ")"}], " ", "p", " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"D", " ", 
             RowBox[{"(", 
              RowBox[{"1.`", "\[InvisibleSpace]", "-", 
               RowBox[{"1.`", " ", "p"}]}], ")"}]}], 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}]], "+", 
           FractionBox[
            RowBox[{"D", " ", "p"}], 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}]]}], ")"}]}], 
        RowBox[{"1.`", "\[InvisibleSpace]", "+", 
         SuperscriptBox["D", "2"]}]], "-", 
       RowBox[{"1.`", " ", "D", " ", "Q0"}], "-", 
       RowBox[{"1.`", " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"D", " ", 
            RowBox[{"(", 
             RowBox[{"1.`", "\[InvisibleSpace]", "-", 
              RowBox[{"1.`", " ", "p"}]}], ")"}]}], 
           RowBox[{"1.`", "\[InvisibleSpace]", "+", 
            SuperscriptBox["D", "2"]}]], "+", 
          FractionBox[
           RowBox[{"D", " ", "p"}], 
           RowBox[{"1.`", "\[InvisibleSpace]", "+", 
            SuperscriptBox["D", "2"]}]]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"A", "+", 
          RowBox[{"D", " ", "Q0"}]}], ")"}]}], "-", 
       RowBox[{"1.`", " ", "Y1"}], "+", 
       FractionBox[
        RowBox[{"1.`", " ", 
         RowBox[{"(", 
          RowBox[{"1.`", "\[InvisibleSpace]", "-", 
           RowBox[{"1.`", " ", "p"}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"D", " ", 
             RowBox[{"(", 
              RowBox[{"1.`", "\[InvisibleSpace]", "-", 
               RowBox[{"1.`", " ", "p"}]}], ")"}]}], 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}]], "+", 
           FractionBox[
            RowBox[{"D", " ", "p"}], 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}]]}], ")"}], " ", "Y2"}], 
        RowBox[{"1.`", "\[InvisibleSpace]", "+", 
         SuperscriptBox["D", "2"]}]], "+", 
       FractionBox[
        RowBox[{"1.`", " ", "p", " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"D", " ", 
             RowBox[{"(", 
              RowBox[{"1.`", "\[InvisibleSpace]", "-", 
               RowBox[{"1.`", " ", "p"}]}], ")"}]}], 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}]], "+", 
           FractionBox[
            RowBox[{"D", " ", "p"}], 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}]]}], ")"}], " ", "Y2"}], 
        RowBox[{"1.`", "\[InvisibleSpace]", "+", 
         SuperscriptBox["D", "2"]}]]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1.`"}], "-", 
       FractionBox[
        RowBox[{"1.`", " ", "D", " ", 
         RowBox[{"(", 
          RowBox[{"1.`", "\[InvisibleSpace]", "-", 
           RowBox[{"1.`", " ", "p"}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"D", " ", 
             RowBox[{"(", 
              RowBox[{"1.`", "\[InvisibleSpace]", "-", 
               RowBox[{"1.`", " ", "p"}]}], ")"}]}], 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}]], "+", 
           FractionBox[
            RowBox[{"D", " ", "p"}], 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}]]}], ")"}]}], 
        RowBox[{"1.`", "\[InvisibleSpace]", "+", 
         SuperscriptBox["D", "2"]}]], "-", 
       FractionBox[
        RowBox[{"1.`", " ", "D", " ", "p", " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"D", " ", 
             RowBox[{"(", 
              RowBox[{"1.`", "\[InvisibleSpace]", "-", 
               RowBox[{"1.`", " ", "p"}]}], ")"}]}], 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}]], "+", 
           FractionBox[
            RowBox[{"D", " ", "p"}], 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}]]}], ")"}]}], 
        RowBox[{"1.`", "\[InvisibleSpace]", "+", 
         SuperscriptBox["D", "2"]}]]}], ")"}]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.528386327747105*^9, 3.528386486929785*^9, 3.528386560827115*^9, 
   3.5283866852529335`*^9, {3.528386735656622*^9, 3.528386777199495*^9}, 
   3.528386819569169*^9, 3.5283870510817986`*^9, 3.5283871016102877`*^9, 
   3.5283871809052267`*^9, 3.528387291854312*^9, 3.5283873948456926`*^9, 
   3.5283874878005185`*^9, {3.5283875533444753`*^9, 3.528387571440507*^9}, 
   3.528387626664604*^9, {3.5283883586576433`*^9, 3.5283883681736603`*^9}, 
   3.5283885376835575`*^9, 3.528388595481659*^9, 3.528388674932599*^9, 
   3.528809066041321*^9, 3.528809131062235*^9, 3.528809226986803*^9, {
   3.5288093702886553`*^9, 3.5288093894298887`*^9}, 3.5288140093566275`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"Q1", "\[Rule]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "1.`"}], " ", "B"}], "+", 
       FractionBox[
        RowBox[{"1.`", " ", "A", " ", 
         RowBox[{"(", 
          RowBox[{"1.`", "\[InvisibleSpace]", "-", 
           RowBox[{"1.`", " ", "p"}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"D", " ", 
             RowBox[{"(", 
              RowBox[{"1.`", "\[InvisibleSpace]", "-", 
               RowBox[{"1.`", " ", "p"}]}], ")"}]}], 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}]], "+", 
           FractionBox[
            RowBox[{"D", " ", "p"}], 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}]]}], ")"}]}], 
        RowBox[{"1.`", "\[InvisibleSpace]", "+", 
         SuperscriptBox["D", "2"]}]], "+", 
       FractionBox[
        RowBox[{"1.`", " ", "B", " ", "p", " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"D", " ", 
             RowBox[{"(", 
              RowBox[{"1.`", "\[InvisibleSpace]", "-", 
               RowBox[{"1.`", " ", "p"}]}], ")"}]}], 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}]], "+", 
           FractionBox[
            RowBox[{"D", " ", "p"}], 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}]]}], ")"}]}], 
        RowBox[{"1.`", "\[InvisibleSpace]", "+", 
         SuperscriptBox["D", "2"]}]], "+", 
       FractionBox[
        RowBox[{"1.`", " ", 
         RowBox[{"(", 
          RowBox[{"A", "-", 
           RowBox[{"1.`", " ", "B"}]}], ")"}], " ", "D", " ", 
         RowBox[{"(", 
          RowBox[{"1.`", "\[InvisibleSpace]", "-", 
           RowBox[{"1.`", " ", "p"}]}], ")"}], " ", "p", " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"D", " ", 
             RowBox[{"(", 
              RowBox[{"1.`", "\[InvisibleSpace]", "-", 
               RowBox[{"1.`", " ", "p"}]}], ")"}]}], 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}]], "+", 
           FractionBox[
            RowBox[{"D", " ", "p"}], 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}]]}], ")"}]}], 
        RowBox[{"1.`", "\[InvisibleSpace]", "+", 
         SuperscriptBox["D", "2"]}]], "+", 
       FractionBox[
        RowBox[{"1.`", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "1.`"}], " ", "A"}], "+", "B"}], ")"}], " ", "D", 
         " ", 
         RowBox[{"(", 
          RowBox[{"1.`", "\[InvisibleSpace]", "-", 
           RowBox[{"1.`", " ", "p"}]}], ")"}], " ", "p", " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"D", " ", 
             RowBox[{"(", 
              RowBox[{"1.`", "\[InvisibleSpace]", "-", 
               RowBox[{"1.`", " ", "p"}]}], ")"}]}], 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}]], "+", 
           FractionBox[
            RowBox[{"D", " ", "p"}], 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}]]}], ")"}]}], 
        RowBox[{"1.`", "\[InvisibleSpace]", "+", 
         SuperscriptBox["D", "2"]}]], "-", 
       RowBox[{"1.`", " ", "D", " ", "Q0"}], "-", 
       RowBox[{"1.`", " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"D", " ", 
            RowBox[{"(", 
             RowBox[{"1.`", "\[InvisibleSpace]", "-", 
              RowBox[{"1.`", " ", "p"}]}], ")"}]}], 
           RowBox[{"1.`", "\[InvisibleSpace]", "+", 
            SuperscriptBox["D", "2"]}]], "+", 
          FractionBox[
           RowBox[{"D", " ", "p"}], 
           RowBox[{"1.`", "\[InvisibleSpace]", "+", 
            SuperscriptBox["D", "2"]}]]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"B", "+", 
          RowBox[{"D", " ", "Q0"}]}], ")"}]}], "-", 
       RowBox[{"1.`", " ", "Y1"}], "+", 
       FractionBox[
        RowBox[{"1.`", " ", 
         RowBox[{"(", 
          RowBox[{"1.`", "\[InvisibleSpace]", "-", 
           RowBox[{"1.`", " ", "p"}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"D", " ", 
             RowBox[{"(", 
              RowBox[{"1.`", "\[InvisibleSpace]", "-", 
               RowBox[{"1.`", " ", "p"}]}], ")"}]}], 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}]], "+", 
           FractionBox[
            RowBox[{"D", " ", "p"}], 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}]]}], ")"}], " ", "Y2"}], 
        RowBox[{"1.`", "\[InvisibleSpace]", "+", 
         SuperscriptBox["D", "2"]}]], "+", 
       FractionBox[
        RowBox[{"1.`", " ", "p", " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"D", " ", 
             RowBox[{"(", 
              RowBox[{"1.`", "\[InvisibleSpace]", "-", 
               RowBox[{"1.`", " ", "p"}]}], ")"}]}], 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}]], "+", 
           FractionBox[
            RowBox[{"D", " ", "p"}], 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}]]}], ")"}], " ", "Y2"}], 
        RowBox[{"1.`", "\[InvisibleSpace]", "+", 
         SuperscriptBox["D", "2"]}]]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1.`"}], "-", 
       FractionBox[
        RowBox[{"1.`", " ", "D", " ", 
         RowBox[{"(", 
          RowBox[{"1.`", "\[InvisibleSpace]", "-", 
           RowBox[{"1.`", " ", "p"}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"D", " ", 
             RowBox[{"(", 
              RowBox[{"1.`", "\[InvisibleSpace]", "-", 
               RowBox[{"1.`", " ", "p"}]}], ")"}]}], 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}]], "+", 
           FractionBox[
            RowBox[{"D", " ", "p"}], 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}]]}], ")"}]}], 
        RowBox[{"1.`", "\[InvisibleSpace]", "+", 
         SuperscriptBox["D", "2"]}]], "-", 
       FractionBox[
        RowBox[{"1.`", " ", "D", " ", "p", " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"D", " ", 
             RowBox[{"(", 
              RowBox[{"1.`", "\[InvisibleSpace]", "-", 
               RowBox[{"1.`", " ", "p"}]}], ")"}]}], 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}]], "+", 
           FractionBox[
            RowBox[{"D", " ", "p"}], 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}]]}], ")"}]}], 
        RowBox[{"1.`", "\[InvisibleSpace]", "+", 
         SuperscriptBox["D", "2"]}]]}], ")"}]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.528386327747105*^9, 3.528386486929785*^9, 3.528386560827115*^9, 
   3.5283866852529335`*^9, {3.528386735656622*^9, 3.528386777199495*^9}, 
   3.528386819569169*^9, 3.5283870510817986`*^9, 3.5283871016102877`*^9, 
   3.5283871809052267`*^9, 3.528387291854312*^9, 3.5283873948456926`*^9, 
   3.5283874878005185`*^9, {3.5283875533444753`*^9, 3.528387571440507*^9}, 
   3.528387626664604*^9, {3.5283883586576433`*^9, 3.5283883681736603`*^9}, 
   3.5283885376835575`*^9, 3.528388595481659*^9, 3.528388674932599*^9, 
   3.528809066041321*^9, 3.528809131062235*^9, 3.528809226986803*^9, {
   3.5288093702886553`*^9, 3.5288093894298887`*^9}, 3.528814009387827*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"Q1", "\[Rule]", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
       RowBox[{"3.`", " ", 
        SuperscriptBox["D", "2"]}], "+", 
       SuperscriptBox["D", "4"]}]], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "1.`"}], " ", "B", " ", "D", " ", "p"}], "+", 
       RowBox[{"A", " ", 
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "+", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "2"]}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "3"]}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"]}], "+", 
          RowBox[{"1.`", " ", "D", " ", "p"}]}], ")"}]}], "+", 
       RowBox[{"1.`", " ", "D", " ", "Q0"}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "2"], " ", "Q0"}], "+", 
       RowBox[{"2.`", " ", 
        SuperscriptBox["D", "3"], " ", "Q0"}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "4"], " ", "Q0"}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "5"], " ", "Q0"}], "+", 
       RowBox[{"1.`", " ", "Y1"}], "+", 
       RowBox[{"2.`", " ", 
        SuperscriptBox["D", "2"], " ", "Y1"}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "4"], " ", "Y1"}], "-", 
       RowBox[{"1.`", " ", "D", " ", "Y2"}]}], ")"}]}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.528386327747105*^9, 3.528386486929785*^9, 3.528386560827115*^9, 
   3.5283866852529335`*^9, {3.528386735656622*^9, 3.528386777199495*^9}, 
   3.528386819569169*^9, 3.5283870510817986`*^9, 3.5283871016102877`*^9, 
   3.5283871809052267`*^9, 3.528387291854312*^9, 3.5283873948456926`*^9, 
   3.5283874878005185`*^9, {3.5283875533444753`*^9, 3.528387571440507*^9}, 
   3.528387626664604*^9, {3.5283883586576433`*^9, 3.5283883681736603`*^9}, 
   3.5283885376835575`*^9, 3.528388595481659*^9, 3.528388674932599*^9, 
   3.528809066041321*^9, 3.528809131062235*^9, 3.528809226986803*^9, {
   3.5288093702886553`*^9, 3.5288093894298887`*^9}, 3.5288140094346275`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"Q1", "\[Rule]", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
       RowBox[{"3.`", " ", 
        SuperscriptBox["D", "2"]}], "+", 
       SuperscriptBox["D", "4"]}]], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"B", " ", 
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "+", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "2"]}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "3"]}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"]}], "+", 
          RowBox[{"D", " ", 
           RowBox[{"(", 
            RowBox[{"1.`", "\[InvisibleSpace]", "-", 
             RowBox[{"1.`", " ", "p"}]}], ")"}]}]}], ")"}]}], "+", 
       RowBox[{"A", " ", "D", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1.`"}], "+", 
          RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
       RowBox[{"1.`", " ", "D", " ", "Q0"}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "2"], " ", "Q0"}], "+", 
       RowBox[{"2.`", " ", 
        SuperscriptBox["D", "3"], " ", "Q0"}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "4"], " ", "Q0"}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "5"], " ", "Q0"}], "+", 
       RowBox[{"1.`", " ", "Y1"}], "+", 
       RowBox[{"2.`", " ", 
        SuperscriptBox["D", "2"], " ", "Y1"}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "4"], " ", "Y1"}], "-", 
       RowBox[{"1.`", " ", "D", " ", "Y2"}]}], ")"}]}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.528386327747105*^9, 3.528386486929785*^9, 3.528386560827115*^9, 
   3.5283866852529335`*^9, {3.528386735656622*^9, 3.528386777199495*^9}, 
   3.528386819569169*^9, 3.5283870510817986`*^9, 3.5283871016102877`*^9, 
   3.5283871809052267`*^9, 3.528387291854312*^9, 3.5283873948456926`*^9, 
   3.5283874878005185`*^9, {3.5283875533444753`*^9, 3.528387571440507*^9}, 
   3.528387626664604*^9, {3.5283883586576433`*^9, 3.5283883681736603`*^9}, 
   3.5283885376835575`*^9, 3.528388595481659*^9, 3.528388674932599*^9, 
   3.528809066041321*^9, 3.528809131062235*^9, 3.528809226986803*^9, {
   3.5288093702886553`*^9, 3.5288093894298887`*^9}, 3.5288140094658275`*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
    RowBox[{"3.`", " ", 
     SuperscriptBox["D", "2"]}], "+", 
    SuperscriptBox["D", "4"]}]], 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "1.`"}], " ", "B", " ", "D", " ", "p"}], "+", 
    RowBox[{"A", " ", 
     RowBox[{"(", 
      RowBox[{"1.`", "\[InvisibleSpace]", "+", 
       RowBox[{"2.`", " ", 
        SuperscriptBox["D", "2"]}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "3"]}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "4"]}], "+", 
       RowBox[{"1.`", " ", "D", " ", "p"}]}], ")"}]}], "+", 
    RowBox[{"1.`", " ", "D", " ", "Q0"}], "+", 
    RowBox[{"1.`", " ", 
     SuperscriptBox["D", "2"], " ", "Q0"}], "+", 
    RowBox[{"2.`", " ", 
     SuperscriptBox["D", "3"], " ", "Q0"}], "+", 
    RowBox[{"1.`", " ", 
     SuperscriptBox["D", "4"], " ", "Q0"}], "+", 
    RowBox[{"1.`", " ", 
     SuperscriptBox["D", "5"], " ", "Q0"}], "+", 
    RowBox[{"1.`", " ", "Y1"}], "+", 
    RowBox[{"2.`", " ", 
     SuperscriptBox["D", "2"], " ", "Y1"}], "+", 
    RowBox[{"1.`", " ", 
     SuperscriptBox["D", "4"], " ", "Y1"}], "+", 
    RowBox[{"1.`", " ", 
     SuperscriptBox["D", "3"], " ", "Y2"}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.528386327747105*^9, 3.528386486929785*^9, 3.528386560827115*^9, 
   3.5283866852529335`*^9, {3.528386735656622*^9, 3.528386777199495*^9}, 
   3.528386819569169*^9, 3.5283870510817986`*^9, 3.5283871016102877`*^9, 
   3.5283871809052267`*^9, 3.528387291854312*^9, 3.5283873948456926`*^9, 
   3.5283874878005185`*^9, {3.5283875533444753`*^9, 3.528387571440507*^9}, 
   3.528387626664604*^9, {3.5283883586576433`*^9, 3.5283883681736603`*^9}, 
   3.5283885376835575`*^9, 3.528388595481659*^9, 3.528388674932599*^9, 
   3.528809066041321*^9, 3.528809131062235*^9, 3.528809226986803*^9, {
   3.5288093702886553`*^9, 3.5288093894298887`*^9}, 3.528814009481427*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
    RowBox[{"3.`", " ", 
     SuperscriptBox["D", "2"]}], "+", 
    SuperscriptBox["D", "4"]}]], 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"B", " ", 
     RowBox[{"(", 
      RowBox[{"1.`", "\[InvisibleSpace]", "+", 
       RowBox[{"2.`", " ", 
        SuperscriptBox["D", "2"]}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "3"]}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "4"]}], "+", 
       RowBox[{"D", " ", 
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "-", 
          RowBox[{"1.`", " ", "p"}]}], ")"}]}]}], ")"}]}], "+", 
    RowBox[{"A", " ", "D", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1.`"}], "+", 
       RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
    RowBox[{"1.`", " ", "D", " ", "Q0"}], "+", 
    RowBox[{"1.`", " ", 
     SuperscriptBox["D", "2"], " ", "Q0"}], "+", 
    RowBox[{"2.`", " ", 
     SuperscriptBox["D", "3"], " ", "Q0"}], "+", 
    RowBox[{"1.`", " ", 
     SuperscriptBox["D", "4"], " ", "Q0"}], "+", 
    RowBox[{"1.`", " ", 
     SuperscriptBox["D", "5"], " ", "Q0"}], "+", 
    RowBox[{"1.`", " ", "Y1"}], "+", 
    RowBox[{"2.`", " ", 
     SuperscriptBox["D", "2"], " ", "Y1"}], "+", 
    RowBox[{"1.`", " ", 
     SuperscriptBox["D", "4"], " ", "Y1"}], "+", 
    RowBox[{"1.`", " ", 
     SuperscriptBox["D", "3"], " ", "Y2"}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.528386327747105*^9, 3.528386486929785*^9, 3.528386560827115*^9, 
   3.5283866852529335`*^9, {3.528386735656622*^9, 3.528386777199495*^9}, 
   3.528386819569169*^9, 3.5283870510817986`*^9, 3.5283871016102877`*^9, 
   3.5283871809052267`*^9, 3.528387291854312*^9, 3.5283873948456926`*^9, 
   3.5283874878005185`*^9, {3.5283875533444753`*^9, 3.528387571440507*^9}, 
   3.528387626664604*^9, {3.5283883586576433`*^9, 3.5283883681736603`*^9}, 
   3.5283885376835575`*^9, 3.528388595481659*^9, 3.528388674932599*^9, 
   3.528809066041321*^9, 3.528809131062235*^9, 3.528809226986803*^9, {
   3.5288093702886553`*^9, 3.5288093894298887`*^9}, 3.5288140094970274`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "0.5`"}], " ", 
    SuperscriptBox["Q0", "2"]}], "+", 
   RowBox[{"Q0", " ", 
    RowBox[{"(", 
     RowBox[{"A", "+", 
      RowBox[{"D", " ", "Q"}], "+", "Y0"}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"A", "+", 
      RowBox[{"D", " ", "Q"}], "+", "Y1"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox["1", 
        RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
         RowBox[{"3.`", " ", 
          SuperscriptBox["D", "2"]}], "+", 
         SuperscriptBox["D", "4"]}]], 
       RowBox[{"p", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"B", " ", 
           RowBox[{"(", 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             RowBox[{"2.`", " ", 
              SuperscriptBox["D", "2"]}], "+", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "3"]}], "+", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "4"]}], "+", 
             RowBox[{"D", " ", 
              RowBox[{"(", 
               RowBox[{"1.`", "\[InvisibleSpace]", "-", 
                RowBox[{"1.`", " ", "p"}]}], ")"}]}]}], ")"}]}], "+", 
          RowBox[{"A", " ", "D", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1.`"}], "+", 
             RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{"1.`", " ", "D", " ", "Q0"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "2"], " ", "Q0"}], "+", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "3"], " ", "Q0"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"], " ", "Q0"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "5"], " ", "Q0"}], "+", 
          RowBox[{"1.`", " ", "Y1"}], "+", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "2"], " ", "Y1"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"], " ", "Y1"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "3"], " ", "Y2"}]}], ")"}]}]}], "+", 
      RowBox[{
       FractionBox["1", 
        RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
         RowBox[{"3.`", " ", 
          SuperscriptBox["D", "2"]}], "+", 
         SuperscriptBox["D", "4"]}]], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "1.`"}], " ", "B", " ", "D", " ", "p"}], "+", 
          RowBox[{"A", " ", 
           RowBox[{"(", 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             RowBox[{"2.`", " ", 
              SuperscriptBox["D", "2"]}], "+", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "3"]}], "+", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "4"]}], "+", 
             RowBox[{"1.`", " ", "D", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{"1.`", " ", "D", " ", "Q0"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "2"], " ", "Q0"}], "+", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "3"], " ", "Q0"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"], " ", "Q0"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "5"], " ", "Q0"}], "+", 
          RowBox[{"1.`", " ", "Y1"}], "+", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "2"], " ", "Y1"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"], " ", "Y1"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "3"], " ", "Y2"}]}], ")"}]}]}]}], ")"}]}], "-", 
   RowBox[{"0.5`", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox["1", 
         RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
          RowBox[{"3.`", " ", 
           SuperscriptBox["D", "2"]}], "+", 
          SuperscriptBox["D", "4"]}]], 
        RowBox[{"p", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"B", " ", 
            RowBox[{"(", 
             RowBox[{"1.`", "\[InvisibleSpace]", "+", 
              RowBox[{"2.`", " ", 
               SuperscriptBox["D", "2"]}], "+", 
              RowBox[{"1.`", " ", 
               SuperscriptBox["D", "3"]}], "+", 
              RowBox[{"1.`", " ", 
               SuperscriptBox["D", "4"]}], "+", 
              RowBox[{"D", " ", 
               RowBox[{"(", 
                RowBox[{"1.`", "\[InvisibleSpace]", "-", 
                 RowBox[{"1.`", " ", "p"}]}], ")"}]}]}], ")"}]}], "+", 
           RowBox[{"A", " ", "D", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", 
              RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
           RowBox[{"1.`", " ", "D", " ", "Q0"}], "+", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "2"], " ", "Q0"}], "+", 
           RowBox[{"2.`", " ", 
            SuperscriptBox["D", "3"], " ", "Q0"}], "+", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "4"], " ", "Q0"}], "+", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "5"], " ", "Q0"}], "+", 
           RowBox[{"1.`", " ", "Y1"}], "+", 
           RowBox[{"2.`", " ", 
            SuperscriptBox["D", "2"], " ", "Y1"}], "+", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "4"], " ", "Y1"}], "+", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "3"], " ", "Y2"}]}], ")"}]}]}], "+", 
       RowBox[{
        FractionBox["1", 
         RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
          RowBox[{"3.`", " ", 
           SuperscriptBox["D", "2"]}], "+", 
          SuperscriptBox["D", "4"]}]], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "p"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "1.`"}], " ", "B", " ", "D", " ", "p"}], "+", 
           RowBox[{"A", " ", 
            RowBox[{"(", 
             RowBox[{"1.`", "\[InvisibleSpace]", "+", 
              RowBox[{"2.`", " ", 
               SuperscriptBox["D", "2"]}], "+", 
              RowBox[{"1.`", " ", 
               SuperscriptBox["D", "3"]}], "+", 
              RowBox[{"1.`", " ", 
               SuperscriptBox["D", "4"]}], "+", 
              RowBox[{"1.`", " ", "D", " ", "p"}]}], ")"}]}], "+", 
           RowBox[{"1.`", " ", "D", " ", "Q0"}], "+", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "2"], " ", "Q0"}], "+", 
           RowBox[{"2.`", " ", 
            SuperscriptBox["D", "3"], " ", "Q0"}], "+", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "4"], " ", "Q0"}], "+", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "5"], " ", "Q0"}], "+", 
           RowBox[{"1.`", " ", "Y1"}], "+", 
           RowBox[{"2.`", " ", 
            SuperscriptBox["D", "2"], " ", "Y1"}], "+", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "4"], " ", "Y1"}], "+", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "3"], " ", "Y2"}]}], ")"}]}]}]}], ")"}], 
     "2"]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.528386327747105*^9, 3.528386486929785*^9, 3.528386560827115*^9, 
   3.5283866852529335`*^9, {3.528386735656622*^9, 3.528386777199495*^9}, 
   3.528386819569169*^9, 3.5283870510817986`*^9, 3.5283871016102877`*^9, 
   3.5283871809052267`*^9, 3.528387291854312*^9, 3.5283873948456926`*^9, 
   3.5283874878005185`*^9, {3.5283875533444753`*^9, 3.528387571440507*^9}, 
   3.528387626664604*^9, {3.5283883586576433`*^9, 3.5283883681736603`*^9}, 
   3.5283885376835575`*^9, 3.528388595481659*^9, 3.528388674932599*^9, 
   3.528809066041321*^9, 3.528809131062235*^9, 3.528809226986803*^9, {
   3.5288093702886553`*^9, 3.5288093894298887`*^9}, 3.5288140095126276`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "0.5`"}], " ", 
    SuperscriptBox["Q0", "2"]}], "+", 
   RowBox[{"Q0", " ", 
    RowBox[{"(", 
     RowBox[{"B", "+", 
      RowBox[{"D", " ", "Q"}], "+", "Y0"}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"B", "+", 
      RowBox[{"D", " ", "Q"}], "+", "Y1"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox["1", 
        RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
         RowBox[{"3.`", " ", 
          SuperscriptBox["D", "2"]}], "+", 
         SuperscriptBox["D", "4"]}]], 
       RowBox[{"p", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"B", " ", 
           RowBox[{"(", 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             RowBox[{"2.`", " ", 
              SuperscriptBox["D", "2"]}], "+", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "3"]}], "+", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "4"]}], "+", 
             RowBox[{"D", " ", 
              RowBox[{"(", 
               RowBox[{"1.`", "\[InvisibleSpace]", "-", 
                RowBox[{"1.`", " ", "p"}]}], ")"}]}]}], ")"}]}], "+", 
          RowBox[{"A", " ", "D", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1.`"}], "+", 
             RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{"1.`", " ", "D", " ", "Q0"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "2"], " ", "Q0"}], "+", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "3"], " ", "Q0"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"], " ", "Q0"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "5"], " ", "Q0"}], "+", 
          RowBox[{"1.`", " ", "Y1"}], "+", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "2"], " ", "Y1"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"], " ", "Y1"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "3"], " ", "Y2"}]}], ")"}]}]}], "+", 
      RowBox[{
       FractionBox["1", 
        RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
         RowBox[{"3.`", " ", 
          SuperscriptBox["D", "2"]}], "+", 
         SuperscriptBox["D", "4"]}]], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "1.`"}], " ", "B", " ", "D", " ", "p"}], "+", 
          RowBox[{"A", " ", 
           RowBox[{"(", 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             RowBox[{"2.`", " ", 
              SuperscriptBox["D", "2"]}], "+", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "3"]}], "+", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "4"]}], "+", 
             RowBox[{"1.`", " ", "D", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{"1.`", " ", "D", " ", "Q0"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "2"], " ", "Q0"}], "+", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "3"], " ", "Q0"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"], " ", "Q0"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "5"], " ", "Q0"}], "+", 
          RowBox[{"1.`", " ", "Y1"}], "+", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "2"], " ", "Y1"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"], " ", "Y1"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "3"], " ", "Y2"}]}], ")"}]}]}]}], ")"}]}], "-", 
   RowBox[{"0.5`", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox["1", 
         RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
          RowBox[{"3.`", " ", 
           SuperscriptBox["D", "2"]}], "+", 
          SuperscriptBox["D", "4"]}]], 
        RowBox[{"p", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"B", " ", 
            RowBox[{"(", 
             RowBox[{"1.`", "\[InvisibleSpace]", "+", 
              RowBox[{"2.`", " ", 
               SuperscriptBox["D", "2"]}], "+", 
              RowBox[{"1.`", " ", 
               SuperscriptBox["D", "3"]}], "+", 
              RowBox[{"1.`", " ", 
               SuperscriptBox["D", "4"]}], "+", 
              RowBox[{"D", " ", 
               RowBox[{"(", 
                RowBox[{"1.`", "\[InvisibleSpace]", "-", 
                 RowBox[{"1.`", " ", "p"}]}], ")"}]}]}], ")"}]}], "+", 
           RowBox[{"A", " ", "D", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", 
              RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
           RowBox[{"1.`", " ", "D", " ", "Q0"}], "+", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "2"], " ", "Q0"}], "+", 
           RowBox[{"2.`", " ", 
            SuperscriptBox["D", "3"], " ", "Q0"}], "+", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "4"], " ", "Q0"}], "+", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "5"], " ", "Q0"}], "+", 
           RowBox[{"1.`", " ", "Y1"}], "+", 
           RowBox[{"2.`", " ", 
            SuperscriptBox["D", "2"], " ", "Y1"}], "+", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "4"], " ", "Y1"}], "+", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "3"], " ", "Y2"}]}], ")"}]}]}], "+", 
       RowBox[{
        FractionBox["1", 
         RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
          RowBox[{"3.`", " ", 
           SuperscriptBox["D", "2"]}], "+", 
          SuperscriptBox["D", "4"]}]], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "p"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "1.`"}], " ", "B", " ", "D", " ", "p"}], "+", 
           RowBox[{"A", " ", 
            RowBox[{"(", 
             RowBox[{"1.`", "\[InvisibleSpace]", "+", 
              RowBox[{"2.`", " ", 
               SuperscriptBox["D", "2"]}], "+", 
              RowBox[{"1.`", " ", 
               SuperscriptBox["D", "3"]}], "+", 
              RowBox[{"1.`", " ", 
               SuperscriptBox["D", "4"]}], "+", 
              RowBox[{"1.`", " ", "D", " ", "p"}]}], ")"}]}], "+", 
           RowBox[{"1.`", " ", "D", " ", "Q0"}], "+", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "2"], " ", "Q0"}], "+", 
           RowBox[{"2.`", " ", 
            SuperscriptBox["D", "3"], " ", "Q0"}], "+", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "4"], " ", "Q0"}], "+", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "5"], " ", "Q0"}], "+", 
           RowBox[{"1.`", " ", "Y1"}], "+", 
           RowBox[{"2.`", " ", 
            SuperscriptBox["D", "2"], " ", "Y1"}], "+", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "4"], " ", "Y1"}], "+", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "3"], " ", "Y2"}]}], ")"}]}]}]}], ")"}], 
     "2"]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.528386327747105*^9, 3.528386486929785*^9, 3.528386560827115*^9, 
   3.5283866852529335`*^9, {3.528386735656622*^9, 3.528386777199495*^9}, 
   3.528386819569169*^9, 3.5283870510817986`*^9, 3.5283871016102877`*^9, 
   3.5283871809052267`*^9, 3.528387291854312*^9, 3.5283873948456926`*^9, 
   3.5283874878005185`*^9, {3.5283875533444753`*^9, 3.528387571440507*^9}, 
   3.528387626664604*^9, {3.5283883586576433`*^9, 3.5283883681736603`*^9}, 
   3.5283885376835575`*^9, 3.528388595481659*^9, 3.528388674932599*^9, 
   3.528809066041321*^9, 3.528809131062235*^9, 3.528809226986803*^9, {
   3.5288093702886553`*^9, 3.5288093894298887`*^9}, 3.528814009528228*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"A", "+", 
   RowBox[{"D", " ", "Q"}], "-", 
   RowBox[{"1.`", " ", "Q0"}], "+", "Y0", "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"1.`", " ", "D"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "2"]}], "+", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "3"]}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"]}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "5"]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}]}], 
       RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
        RowBox[{"3.`", " ", 
         SuperscriptBox["D", "2"]}], "+", 
        SuperscriptBox["D", "4"]}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"1.`", " ", "D"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "2"]}], "+", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "3"]}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"]}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "5"]}]}], ")"}], " ", "p"}], 
       RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
        RowBox[{"3.`", " ", 
         SuperscriptBox["D", "2"]}], "+", 
        SuperscriptBox["D", "4"]}]]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"A", "+", 
      RowBox[{"D", " ", "Q"}], "+", "Y1"}], ")"}]}], "-", 
   RowBox[{"1.`", " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"1.`", " ", "D"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "2"]}], "+", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "3"]}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"]}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "5"]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}]}], 
       RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
        RowBox[{"3.`", " ", 
         SuperscriptBox["D", "2"]}], "+", 
        SuperscriptBox["D", "4"]}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"1.`", " ", "D"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "2"]}], "+", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "3"]}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"]}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "5"]}]}], ")"}], " ", "p"}], 
       RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
        RowBox[{"3.`", " ", 
         SuperscriptBox["D", "2"]}], "+", 
        SuperscriptBox["D", "4"]}]]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox["1", 
        RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
         RowBox[{"3.`", " ", 
          SuperscriptBox["D", "2"]}], "+", 
         SuperscriptBox["D", "4"]}]], 
       RowBox[{"p", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"B", " ", 
           RowBox[{"(", 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             RowBox[{"2.`", " ", 
              SuperscriptBox["D", "2"]}], "+", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "3"]}], "+", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "4"]}], "+", 
             RowBox[{"D", " ", 
              RowBox[{"(", 
               RowBox[{"1.`", "\[InvisibleSpace]", "-", 
                RowBox[{"1.`", " ", "p"}]}], ")"}]}]}], ")"}]}], "+", 
          RowBox[{"A", " ", "D", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1.`"}], "+", 
             RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{"1.`", " ", "D", " ", "Q0"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "2"], " ", "Q0"}], "+", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "3"], " ", "Q0"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"], " ", "Q0"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "5"], " ", "Q0"}], "+", 
          RowBox[{"1.`", " ", "Y1"}], "+", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "2"], " ", "Y1"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"], " ", "Y1"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "3"], " ", "Y2"}]}], ")"}]}]}], "+", 
      RowBox[{
       FractionBox["1", 
        RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
         RowBox[{"3.`", " ", 
          SuperscriptBox["D", "2"]}], "+", 
         SuperscriptBox["D", "4"]}]], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "1.`"}], " ", "B", " ", "D", " ", "p"}], "+", 
          RowBox[{"A", " ", 
           RowBox[{"(", 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             RowBox[{"2.`", " ", 
              SuperscriptBox["D", "2"]}], "+", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "3"]}], "+", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "4"]}], "+", 
             RowBox[{"1.`", " ", "D", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{"1.`", " ", "D", " ", "Q0"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "2"], " ", "Q0"}], "+", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "3"], " ", "Q0"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"], " ", "Q0"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "5"], " ", "Q0"}], "+", 
          RowBox[{"1.`", " ", "Y1"}], "+", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "2"], " ", "Y1"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"], " ", "Y1"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "3"], " ", "Y2"}]}], ")"}]}]}]}], ")"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.528386327747105*^9, 3.528386486929785*^9, 3.528386560827115*^9, 
   3.5283866852529335`*^9, {3.528386735656622*^9, 3.528386777199495*^9}, 
   3.528386819569169*^9, 3.5283870510817986`*^9, 3.5283871016102877`*^9, 
   3.5283871809052267`*^9, 3.528387291854312*^9, 3.5283873948456926`*^9, 
   3.5283874878005185`*^9, {3.5283875533444753`*^9, 3.528387571440507*^9}, 
   3.528387626664604*^9, {3.5283883586576433`*^9, 3.5283883681736603`*^9}, 
   3.5283885376835575`*^9, 3.528388595481659*^9, 3.528388674932599*^9, 
   3.528809066041321*^9, 3.528809131062235*^9, 3.528809226986803*^9, {
   3.5288093702886553`*^9, 3.5288093894298887`*^9}, 3.5288140095438275`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"B", "+", 
   RowBox[{"D", " ", "Q"}], "-", 
   RowBox[{"1.`", " ", "Q0"}], "+", "Y0", "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"1.`", " ", "D"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "2"]}], "+", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "3"]}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"]}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "5"]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}]}], 
       RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
        RowBox[{"3.`", " ", 
         SuperscriptBox["D", "2"]}], "+", 
        SuperscriptBox["D", "4"]}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"1.`", " ", "D"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "2"]}], "+", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "3"]}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"]}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "5"]}]}], ")"}], " ", "p"}], 
       RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
        RowBox[{"3.`", " ", 
         SuperscriptBox["D", "2"]}], "+", 
        SuperscriptBox["D", "4"]}]]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"B", "+", 
      RowBox[{"D", " ", "Q"}], "+", "Y1"}], ")"}]}], "-", 
   RowBox[{"1.`", " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"1.`", " ", "D"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "2"]}], "+", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "3"]}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"]}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "5"]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}]}], 
       RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
        RowBox[{"3.`", " ", 
         SuperscriptBox["D", "2"]}], "+", 
        SuperscriptBox["D", "4"]}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"1.`", " ", "D"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "2"]}], "+", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "3"]}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"]}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "5"]}]}], ")"}], " ", "p"}], 
       RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
        RowBox[{"3.`", " ", 
         SuperscriptBox["D", "2"]}], "+", 
        SuperscriptBox["D", "4"]}]]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox["1", 
        RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
         RowBox[{"3.`", " ", 
          SuperscriptBox["D", "2"]}], "+", 
         SuperscriptBox["D", "4"]}]], 
       RowBox[{"p", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"B", " ", 
           RowBox[{"(", 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             RowBox[{"2.`", " ", 
              SuperscriptBox["D", "2"]}], "+", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "3"]}], "+", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "4"]}], "+", 
             RowBox[{"D", " ", 
              RowBox[{"(", 
               RowBox[{"1.`", "\[InvisibleSpace]", "-", 
                RowBox[{"1.`", " ", "p"}]}], ")"}]}]}], ")"}]}], "+", 
          RowBox[{"A", " ", "D", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1.`"}], "+", 
             RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{"1.`", " ", "D", " ", "Q0"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "2"], " ", "Q0"}], "+", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "3"], " ", "Q0"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"], " ", "Q0"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "5"], " ", "Q0"}], "+", 
          RowBox[{"1.`", " ", "Y1"}], "+", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "2"], " ", "Y1"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"], " ", "Y1"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "3"], " ", "Y2"}]}], ")"}]}]}], "+", 
      RowBox[{
       FractionBox["1", 
        RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "+", 
         RowBox[{"3.`", " ", 
          SuperscriptBox["D", "2"]}], "+", 
         SuperscriptBox["D", "4"]}]], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "p"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "1.`"}], " ", "B", " ", "D", " ", "p"}], "+", 
          RowBox[{"A", " ", 
           RowBox[{"(", 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             RowBox[{"2.`", " ", 
              SuperscriptBox["D", "2"]}], "+", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "3"]}], "+", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "4"]}], "+", 
             RowBox[{"1.`", " ", "D", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{"1.`", " ", "D", " ", "Q0"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "2"], " ", "Q0"}], "+", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "3"], " ", "Q0"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"], " ", "Q0"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "5"], " ", "Q0"}], "+", 
          RowBox[{"1.`", " ", "Y1"}], "+", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "2"], " ", "Y1"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"], " ", "Y1"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "3"], " ", "Y2"}]}], ")"}]}]}]}], ")"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.528386327747105*^9, 3.528386486929785*^9, 3.528386560827115*^9, 
   3.5283866852529335`*^9, {3.528386735656622*^9, 3.528386777199495*^9}, 
   3.528386819569169*^9, 3.5283870510817986`*^9, 3.5283871016102877`*^9, 
   3.5283871809052267`*^9, 3.528387291854312*^9, 3.5283873948456926`*^9, 
   3.5283874878005185`*^9, {3.5283875533444753`*^9, 3.528387571440507*^9}, 
   3.528387626664604*^9, {3.5283883586576433`*^9, 3.5283883681736603`*^9}, 
   3.5283885376835575`*^9, 3.528388595481659*^9, 3.528388674932599*^9, 
   3.528809066041321*^9, 3.528809131062235*^9, 3.528809226986803*^9, {
   3.5288093702886553`*^9, 3.5288093894298887`*^9}, 3.5288140095750275`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"Q0", "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"(", 
       RowBox[{"1.`", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"1.`", " ", "B", " ", "D", " ", 
           RowBox[{"(", 
            RowBox[{"1.`", "\[InvisibleSpace]", "+", 
             SuperscriptBox["D", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"0.509280870006431`", "\[InvisibleSpace]", "-", 
             RowBox[{"0.35019639436735767`", " ", "D"}], "+", 
             SuperscriptBox["D", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"0.9999999999999999`", "\[InvisibleSpace]", "+", 
             RowBox[{"1.`", " ", "D"}], "+", 
             SuperscriptBox["D", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"1.9635530389888245`", "\[InvisibleSpace]", "+", 
             RowBox[{"1.3501963943673576`", " ", "D"}], "+", 
             SuperscriptBox["D", "2"]}], ")"}], " ", "p"}], "+", 
          RowBox[{"A", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1.0000000000000004`"}], "+", 
             RowBox[{
              SuperscriptBox["D", "5"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1.`"}], "-", 
                RowBox[{"7.`", " ", "p"}]}], ")"}]}], "+", 
             RowBox[{
              SuperscriptBox["D", "6"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "5.`"}], "-", 
                RowBox[{"5.`", " ", "p"}]}], ")"}]}], "+", 
             RowBox[{
              SuperscriptBox["D", "4"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "11.`"}], "-", 
                RowBox[{"4.`", " ", "p"}]}], ")"}]}], "+", 
             RowBox[{
              SuperscriptBox["D", "3"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1.`"}], "-", 
                RowBox[{"4.`", " ", "p"}]}], ")"}]}], "+", 
             RowBox[{
              SuperscriptBox["D", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "6.000000000000002`"}], "-", 
                RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
             RowBox[{"D", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "2.220446049250313`*^-16"}], "-", 
                RowBox[{"1.`", " ", "p"}]}], ")"}]}], "-", 
             RowBox[{"5.`", " ", 
              SuperscriptBox["D", "7"], " ", "p"}], "-", 
             RowBox[{"2.`", " ", 
              SuperscriptBox["D", "8"], " ", "p"}], "-", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "9"], " ", "p"}]}], ")"}]}], "-", 
          RowBox[{"1.0000000000000004`", " ", "D", " ", "Q"}], "-", 
          RowBox[{"1.0000000000000002`", " ", 
           SuperscriptBox["D", "2"], " ", "Q"}], "-", 
          RowBox[{"7.000000000000002`", " ", 
           SuperscriptBox["D", "3"], " ", "Q"}], "-", 
          RowBox[{"5.`", " ", 
           SuperscriptBox["D", "4"], " ", "Q"}], "-", 
          RowBox[{"15.`", " ", 
           SuperscriptBox["D", "5"], " ", "Q"}], "-", 
          RowBox[{"8.`", " ", 
           SuperscriptBox["D", "6"], " ", "Q"}], "-", 
          RowBox[{"10.`", " ", 
           SuperscriptBox["D", "7"], " ", "Q"}], "-", 
          RowBox[{"5.`", " ", 
           SuperscriptBox["D", "8"], " ", "Q"}], "-", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "9"], " ", "Q"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "10"], " ", "Q"}], "-", 
          RowBox[{"1.0000000000000004`", " ", "Y0"}], "-", 
          RowBox[{"6.000000000000002`", " ", 
           SuperscriptBox["D", "2"], " ", "Y0"}], "-", 
          RowBox[{"11.`", " ", 
           SuperscriptBox["D", "4"], " ", "Y0"}], "-", 
          RowBox[{"6.`", " ", 
           SuperscriptBox["D", "6"], " ", "Y0"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "8"], " ", "Y0"}], "-", 
          RowBox[{"2.220446049250313`*^-16", " ", "D", " ", "Y1"}], "-", 
          RowBox[{"2.220446049250313`*^-16", " ", 
           SuperscriptBox["D", "2"], " ", "Y1"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "3"], " ", "Y1"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"], " ", "Y1"}], "-", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "5"], " ", "Y1"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "6"], " ", "Y1"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "7"], " ", "Y1"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "4"], " ", "Y2"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "5"], " ", "Y2"}], "+", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "6"], " ", "Y2"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "7"], " ", "Y2"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "8"], " ", "Y2"}]}], ")"}]}], ")"}]}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1.3610953328233535`", "\[InvisibleSpace]", "-", 
         RowBox[{"0.7450895250672199`", " ", "D"}], "+", 
         SuperscriptBox["D", "2"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"0.25130703272824556`", "\[InvisibleSpace]", "-", 
         RowBox[{"0.16161345782896566`", " ", "D"}], "+", 
         SuperscriptBox["D", "2"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"0.47615593786216687`", "\[InvisibleSpace]", "+", 
         RowBox[{"0.14493478041901153`", " ", "D"}], "+", 
         SuperscriptBox["D", "2"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1.7714995242608043`", "\[InvisibleSpace]", "+", 
         RowBox[{"0.3235385864111817`", " ", "D"}], "+", 
         SuperscriptBox["D", "2"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"3.46590431145028`", "\[InvisibleSpace]", "+", 
         RowBox[{"2.438229616065992`", " ", "D"}], "+", 
         SuperscriptBox["D", "2"]}], ")"}]}], ")"}]}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.528386327747105*^9, 3.528386486929785*^9, 3.528386560827115*^9, 
   3.5283866852529335`*^9, {3.528386735656622*^9, 3.528386777199495*^9}, 
   3.528386819569169*^9, 3.5283870510817986`*^9, 3.5283871016102877`*^9, 
   3.5283871809052267`*^9, 3.528387291854312*^9, 3.5283873948456926`*^9, 
   3.5283874878005185`*^9, {3.5283875533444753`*^9, 3.528387571440507*^9}, 
   3.528387626664604*^9, {3.5283883586576433`*^9, 3.5283883681736603`*^9}, 
   3.5283885376835575`*^9, 3.528388595481659*^9, 3.528388674932599*^9, 
   3.528809066041321*^9, 3.528809131062235*^9, 3.528809226986803*^9, {
   3.5288093702886553`*^9, 3.5288093894298887`*^9}, 3.5288140096686277`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"Q0", "\[Rule]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"B", " ", 
        RowBox[{"(", 
         RowBox[{"1.0000000000000004`", "\[InvisibleSpace]", "+", 
          RowBox[{
           SuperscriptBox["D", "5"], " ", 
           RowBox[{"(", 
            RowBox[{"8.`", "\[InvisibleSpace]", "-", 
             RowBox[{"7.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["D", "7"], " ", 
           RowBox[{"(", 
            RowBox[{"5.`", "\[InvisibleSpace]", "-", 
             RowBox[{"5.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["D", "6"], " ", 
           RowBox[{"(", 
            RowBox[{"10.`", "\[InvisibleSpace]", "-", 
             RowBox[{"5.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["D", "3"], " ", 
           RowBox[{"(", 
            RowBox[{"5.`", "\[InvisibleSpace]", "-", 
             RowBox[{"4.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["D", "4"], " ", 
           RowBox[{"(", 
            RowBox[{"15.`", "\[InvisibleSpace]", "-", 
             RowBox[{"4.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["D", "8"], " ", 
           RowBox[{"(", 
            RowBox[{"2.`", "\[InvisibleSpace]", "-", 
             RowBox[{"2.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["D", "9"], " ", 
           RowBox[{"(", 
            RowBox[{"1.`", "\[InvisibleSpace]", "-", 
             RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{"D", " ", 
           RowBox[{"(", 
            RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "-", 
             RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["D", "2"], " ", 
           RowBox[{"(", 
            RowBox[{"7.000000000000002`", "\[InvisibleSpace]", "-", 
             RowBox[{"1.`", " ", "p"}]}], ")"}]}]}], ")"}]}], "+", 
       RowBox[{"A", " ", "D", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1.`"}], "+", 
          RowBox[{"1.`", " ", "p"}], "+", 
          RowBox[{"D", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1.`"}], "+", 
             RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["D", "8"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1.`"}], "+", 
             RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["D", "7"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "2.`"}], "+", 
             RowBox[{"2.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["D", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "4.`"}], "+", 
             RowBox[{"4.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["D", "3"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "4.`"}], "+", 
             RowBox[{"4.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["D", "5"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "5.`"}], "+", 
             RowBox[{"5.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["D", "6"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "5.`"}], "+", 
             RowBox[{"5.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["D", "4"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "7.`"}], "+", 
             RowBox[{"7.`", " ", "p"}]}], ")"}]}]}], ")"}]}], "+", 
       RowBox[{"1.0000000000000004`", " ", "D", " ", "Q"}], "+", 
       RowBox[{"1.0000000000000002`", " ", 
        SuperscriptBox["D", "2"], " ", "Q"}], "+", 
       RowBox[{"7.000000000000002`", " ", 
        SuperscriptBox["D", "3"], " ", "Q"}], "+", 
       RowBox[{"5.`", " ", 
        SuperscriptBox["D", "4"], " ", "Q"}], "+", 
       RowBox[{"15.`", " ", 
        SuperscriptBox["D", "5"], " ", "Q"}], "+", 
       RowBox[{"8.`", " ", 
        SuperscriptBox["D", "6"], " ", "Q"}], "+", 
       RowBox[{"10.`", " ", 
        SuperscriptBox["D", "7"], " ", "Q"}], "+", 
       RowBox[{"5.`", " ", 
        SuperscriptBox["D", "8"], " ", "Q"}], "+", 
       RowBox[{"2.`", " ", 
        SuperscriptBox["D", "9"], " ", "Q"}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "10"], " ", "Q"}], "+", 
       RowBox[{"1.0000000000000004`", " ", "Y0"}], "+", 
       RowBox[{"6.000000000000002`", " ", 
        SuperscriptBox["D", "2"], " ", "Y0"}], "+", 
       RowBox[{"11.`", " ", 
        SuperscriptBox["D", "4"], " ", "Y0"}], "+", 
       RowBox[{"6.`", " ", 
        SuperscriptBox["D", "6"], " ", "Y0"}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "8"], " ", "Y0"}], "+", 
       RowBox[{"2.220446049250313`*^-16", " ", "D", " ", "Y1"}], "+", 
       RowBox[{"2.220446049250313`*^-16", " ", 
        SuperscriptBox["D", "2"], " ", "Y1"}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "3"], " ", "Y1"}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "4"], " ", "Y1"}], "+", 
       RowBox[{"2.`", " ", 
        SuperscriptBox["D", "5"], " ", "Y1"}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "6"], " ", "Y1"}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "7"], " ", "Y1"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "4"], " ", "Y2"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "5"], " ", "Y2"}], "-", 
       RowBox[{"2.`", " ", 
        SuperscriptBox["D", "6"], " ", "Y2"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "7"], " ", "Y2"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "8"], " ", "Y2"}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1.3610953328233535`", "\[InvisibleSpace]", "-", 
         RowBox[{"0.7450895250672199`", " ", "D"}], "+", 
         SuperscriptBox["D", "2"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"0.25130703272824556`", "\[InvisibleSpace]", "-", 
         RowBox[{"0.16161345782896566`", " ", "D"}], "+", 
         SuperscriptBox["D", "2"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"0.47615593786216687`", "\[InvisibleSpace]", "+", 
         RowBox[{"0.14493478041901153`", " ", "D"}], "+", 
         SuperscriptBox["D", "2"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1.7714995242608043`", "\[InvisibleSpace]", "+", 
         RowBox[{"0.3235385864111817`", " ", "D"}], "+", 
         SuperscriptBox["D", "2"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"3.46590431145028`", "\[InvisibleSpace]", "+", 
         RowBox[{"2.438229616065992`", " ", "D"}], "+", 
         SuperscriptBox["D", "2"]}], ")"}]}], ")"}]}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.528386327747105*^9, 3.528386486929785*^9, 3.528386560827115*^9, 
   3.5283866852529335`*^9, {3.528386735656622*^9, 3.528386777199495*^9}, 
   3.528386819569169*^9, 3.5283870510817986`*^9, 3.5283871016102877`*^9, 
   3.5283871809052267`*^9, 3.528387291854312*^9, 3.5283873948456926`*^9, 
   3.5283874878005185`*^9, {3.5283875533444753`*^9, 3.528387571440507*^9}, 
   3.528387626664604*^9, {3.5283883586576433`*^9, 3.5283883681736603`*^9}, 
   3.5283885376835575`*^9, 3.528388595481659*^9, 3.528388674932599*^9, 
   3.528809066041321*^9, 3.528809131062235*^9, 3.528809226986803*^9, {
   3.5288093702886553`*^9, 3.5288093894298887`*^9}, 3.528814009746628*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   RowBox[{"(", 
    RowBox[{"1.`", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"1.`", " ", "B", " ", "D", " ", 
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "+", 
          SuperscriptBox["D", "2"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"0.509280870006431`", "\[InvisibleSpace]", "-", 
          RowBox[{"0.35019639436735767`", " ", "D"}], "+", 
          SuperscriptBox["D", "2"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"0.9999999999999999`", "\[InvisibleSpace]", "+", 
          RowBox[{"1.`", " ", "D"}], "+", 
          SuperscriptBox["D", "2"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1.9635530389888245`", "\[InvisibleSpace]", "+", 
          RowBox[{"1.3501963943673576`", " ", "D"}], "+", 
          SuperscriptBox["D", "2"]}], ")"}], " ", "p"}], "+", 
       RowBox[{"A", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1.0000000000000004`"}], "+", 
          RowBox[{
           SuperscriptBox["D", "5"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1.`"}], "-", 
             RowBox[{"7.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["D", "6"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "5.`"}], "-", 
             RowBox[{"5.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["D", "4"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "11.`"}], "-", 
             RowBox[{"4.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["D", "3"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1.`"}], "-", 
             RowBox[{"4.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["D", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "6.000000000000002`"}], "-", 
             RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{"D", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "2.220446049250313`*^-16"}], "-", 
             RowBox[{"1.`", " ", "p"}]}], ")"}]}], "-", 
          RowBox[{"5.`", " ", 
           SuperscriptBox["D", "7"], " ", "p"}], "-", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "8"], " ", "p"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "9"], " ", "p"}]}], ")"}]}], "-", 
       RowBox[{"1.0000000000000004`", " ", "D", " ", "Q"}], "-", 
       RowBox[{"1.0000000000000002`", " ", 
        SuperscriptBox["D", "2"], " ", "Q"}], "-", 
       RowBox[{"7.000000000000002`", " ", 
        SuperscriptBox["D", "3"], " ", "Q"}], "-", 
       RowBox[{"5.`", " ", 
        SuperscriptBox["D", "4"], " ", "Q"}], "-", 
       RowBox[{"15.`", " ", 
        SuperscriptBox["D", "5"], " ", "Q"}], "-", 
       RowBox[{"8.`", " ", 
        SuperscriptBox["D", "6"], " ", "Q"}], "-", 
       RowBox[{"10.`", " ", 
        SuperscriptBox["D", "7"], " ", "Q"}], "-", 
       RowBox[{"5.`", " ", 
        SuperscriptBox["D", "8"], " ", "Q"}], "-", 
       RowBox[{"2.`", " ", 
        SuperscriptBox["D", "9"], " ", "Q"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "10"], " ", "Q"}], "-", 
       RowBox[{"1.0000000000000004`", " ", "Y0"}], "-", 
       RowBox[{"6.000000000000002`", " ", 
        SuperscriptBox["D", "2"], " ", "Y0"}], "-", 
       RowBox[{"11.`", " ", 
        SuperscriptBox["D", "4"], " ", "Y0"}], "-", 
       RowBox[{"6.`", " ", 
        SuperscriptBox["D", "6"], " ", "Y0"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "8"], " ", "Y0"}], "-", 
       RowBox[{"2.220446049250313`*^-16", " ", "D", " ", "Y1"}], "-", 
       RowBox[{"2.220446049250313`*^-16", " ", 
        SuperscriptBox["D", "2"], " ", "Y1"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "3"], " ", "Y1"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "4"], " ", "Y1"}], "-", 
       RowBox[{"2.`", " ", 
        SuperscriptBox["D", "5"], " ", "Y1"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "6"], " ", "Y1"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "7"], " ", "Y1"}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "4"], " ", "Y2"}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "5"], " ", "Y2"}], "+", 
       RowBox[{"2.`", " ", 
        SuperscriptBox["D", "6"], " ", "Y2"}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "7"], " ", "Y2"}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "8"], " ", "Y2"}]}], ")"}]}], ")"}]}], "/", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1.3610953328233535`", "\[InvisibleSpace]", "-", 
      RowBox[{"0.7450895250672199`", " ", "D"}], "+", 
      SuperscriptBox["D", "2"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"0.25130703272824556`", "\[InvisibleSpace]", "-", 
      RowBox[{"0.16161345782896566`", " ", "D"}], "+", 
      SuperscriptBox["D", "2"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"0.47615593786216687`", "\[InvisibleSpace]", "+", 
      RowBox[{"0.14493478041901153`", " ", "D"}], "+", 
      SuperscriptBox["D", "2"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"1.7714995242608043`", "\[InvisibleSpace]", "+", 
      RowBox[{"0.3235385864111817`", " ", "D"}], "+", 
      SuperscriptBox["D", "2"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"3.46590431145028`", "\[InvisibleSpace]", "+", 
      RowBox[{"2.438229616065992`", " ", "D"}], "+", 
      SuperscriptBox["D", "2"]}], ")"}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.528386327747105*^9, 3.528386486929785*^9, 3.528386560827115*^9, 
   3.5283866852529335`*^9, {3.528386735656622*^9, 3.528386777199495*^9}, 
   3.528386819569169*^9, 3.5283870510817986`*^9, 3.5283871016102877`*^9, 
   3.5283871809052267`*^9, 3.528387291854312*^9, 3.5283873948456926`*^9, 
   3.5283874878005185`*^9, {3.5283875533444753`*^9, 3.528387571440507*^9}, 
   3.528387626664604*^9, {3.5283883586576433`*^9, 3.5283883681736603`*^9}, 
   3.5283885376835575`*^9, 3.528388595481659*^9, 3.528388674932599*^9, 
   3.528809066041321*^9, 3.528809131062235*^9, 3.528809226986803*^9, {
   3.5288093702886553`*^9, 3.5288093894298887`*^9}, 3.528814009762228*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"B", " ", 
     RowBox[{"(", 
      RowBox[{"1.0000000000000004`", "\[InvisibleSpace]", "+", 
       RowBox[{
        SuperscriptBox["D", "5"], " ", 
        RowBox[{"(", 
         RowBox[{"8.`", "\[InvisibleSpace]", "-", 
          RowBox[{"7.`", " ", "p"}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["D", "7"], " ", 
        RowBox[{"(", 
         RowBox[{"5.`", "\[InvisibleSpace]", "-", 
          RowBox[{"5.`", " ", "p"}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["D", "6"], " ", 
        RowBox[{"(", 
         RowBox[{"10.`", "\[InvisibleSpace]", "-", 
          RowBox[{"5.`", " ", "p"}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["D", "3"], " ", 
        RowBox[{"(", 
         RowBox[{"5.`", "\[InvisibleSpace]", "-", 
          RowBox[{"4.`", " ", "p"}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["D", "4"], " ", 
        RowBox[{"(", 
         RowBox[{"15.`", "\[InvisibleSpace]", "-", 
          RowBox[{"4.`", " ", "p"}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["D", "8"], " ", 
        RowBox[{"(", 
         RowBox[{"2.`", "\[InvisibleSpace]", "-", 
          RowBox[{"2.`", " ", "p"}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["D", "9"], " ", 
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "-", 
          RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
       RowBox[{"D", " ", 
        RowBox[{"(", 
         RowBox[{"1.0000000000000002`", "\[InvisibleSpace]", "-", 
          RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["D", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"7.000000000000002`", "\[InvisibleSpace]", "-", 
          RowBox[{"1.`", " ", "p"}]}], ")"}]}]}], ")"}]}], "+", 
    RowBox[{"A", " ", "D", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1.`"}], "+", 
       RowBox[{"1.`", " ", "p"}], "+", 
       RowBox[{"D", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1.`"}], "+", 
          RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["D", "8"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1.`"}], "+", 
          RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["D", "7"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "2.`"}], "+", 
          RowBox[{"2.`", " ", "p"}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["D", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "4.`"}], "+", 
          RowBox[{"4.`", " ", "p"}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["D", "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "4.`"}], "+", 
          RowBox[{"4.`", " ", "p"}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["D", "5"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "5.`"}], "+", 
          RowBox[{"5.`", " ", "p"}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["D", "6"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "5.`"}], "+", 
          RowBox[{"5.`", " ", "p"}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["D", "4"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "7.`"}], "+", 
          RowBox[{"7.`", " ", "p"}]}], ")"}]}]}], ")"}]}], "+", 
    RowBox[{"1.0000000000000004`", " ", "D", " ", "Q"}], "+", 
    RowBox[{"1.0000000000000002`", " ", 
     SuperscriptBox["D", "2"], " ", "Q"}], "+", 
    RowBox[{"7.000000000000002`", " ", 
     SuperscriptBox["D", "3"], " ", "Q"}], "+", 
    RowBox[{"5.`", " ", 
     SuperscriptBox["D", "4"], " ", "Q"}], "+", 
    RowBox[{"15.`", " ", 
     SuperscriptBox["D", "5"], " ", "Q"}], "+", 
    RowBox[{"8.`", " ", 
     SuperscriptBox["D", "6"], " ", "Q"}], "+", 
    RowBox[{"10.`", " ", 
     SuperscriptBox["D", "7"], " ", "Q"}], "+", 
    RowBox[{"5.`", " ", 
     SuperscriptBox["D", "8"], " ", "Q"}], "+", 
    RowBox[{"2.`", " ", 
     SuperscriptBox["D", "9"], " ", "Q"}], "+", 
    RowBox[{"1.`", " ", 
     SuperscriptBox["D", "10"], " ", "Q"}], "+", 
    RowBox[{"1.0000000000000004`", " ", "Y0"}], "+", 
    RowBox[{"6.000000000000002`", " ", 
     SuperscriptBox["D", "2"], " ", "Y0"}], "+", 
    RowBox[{"11.`", " ", 
     SuperscriptBox["D", "4"], " ", "Y0"}], "+", 
    RowBox[{"6.`", " ", 
     SuperscriptBox["D", "6"], " ", "Y0"}], "+", 
    RowBox[{"1.`", " ", 
     SuperscriptBox["D", "8"], " ", "Y0"}], "+", 
    RowBox[{"2.220446049250313`*^-16", " ", "D", " ", "Y1"}], "+", 
    RowBox[{"2.220446049250313`*^-16", " ", 
     SuperscriptBox["D", "2"], " ", "Y1"}], "+", 
    RowBox[{"1.`", " ", 
     SuperscriptBox["D", "3"], " ", "Y1"}], "+", 
    RowBox[{"1.`", " ", 
     SuperscriptBox["D", "4"], " ", "Y1"}], "+", 
    RowBox[{"2.`", " ", 
     SuperscriptBox["D", "5"], " ", "Y1"}], "+", 
    RowBox[{"1.`", " ", 
     SuperscriptBox["D", "6"], " ", "Y1"}], "+", 
    RowBox[{"1.`", " ", 
     SuperscriptBox["D", "7"], " ", "Y1"}], "-", 
    RowBox[{"1.`", " ", 
     SuperscriptBox["D", "4"], " ", "Y2"}], "-", 
    RowBox[{"1.`", " ", 
     SuperscriptBox["D", "5"], " ", "Y2"}], "-", 
    RowBox[{"2.`", " ", 
     SuperscriptBox["D", "6"], " ", "Y2"}], "-", 
    RowBox[{"1.`", " ", 
     SuperscriptBox["D", "7"], " ", "Y2"}], "-", 
    RowBox[{"1.`", " ", 
     SuperscriptBox["D", "8"], " ", "Y2"}]}], ")"}], "/", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1.3610953328233535`", "\[InvisibleSpace]", "-", 
      RowBox[{"0.7450895250672199`", " ", "D"}], "+", 
      SuperscriptBox["D", "2"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"0.25130703272824556`", "\[InvisibleSpace]", "-", 
      RowBox[{"0.16161345782896566`", " ", "D"}], "+", 
      SuperscriptBox["D", "2"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"0.47615593786216687`", "\[InvisibleSpace]", "+", 
      RowBox[{"0.14493478041901153`", " ", "D"}], "+", 
      SuperscriptBox["D", "2"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"1.7714995242608043`", "\[InvisibleSpace]", "+", 
      RowBox[{"0.3235385864111817`", " ", "D"}], "+", 
      SuperscriptBox["D", "2"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"3.46590431145028`", "\[InvisibleSpace]", "+", 
      RowBox[{"2.438229616065992`", " ", "D"}], "+", 
      SuperscriptBox["D", "2"]}], ")"}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.528386327747105*^9, 3.528386486929785*^9, 3.528386560827115*^9, 
   3.5283866852529335`*^9, {3.528386735656622*^9, 3.528386777199495*^9}, 
   3.528386819569169*^9, 3.5283870510817986`*^9, 3.5283871016102877`*^9, 
   3.5283871809052267`*^9, 3.528387291854312*^9, 3.5283873948456926`*^9, 
   3.5283874878005185`*^9, {3.5283875533444753`*^9, 3.528387571440507*^9}, 
   3.528387626664604*^9, {3.5283883586576433`*^9, 3.5283883681736603`*^9}, 
   3.5283885376835575`*^9, 3.528388595481659*^9, 3.528388674932599*^9, 
   3.528809066041321*^9, 3.528809131062235*^9, 3.528809226986803*^9, {
   3.5288093702886553`*^9, 3.5288093894298887`*^9}, 3.528814009793428*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "0.5`"}], " ", 
    SuperscriptBox["Q0", "2"]}], "+", 
   RowBox[{"Q", " ", 
    RowBox[{"(", 
     RowBox[{"A", "+", "Y"}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"A", "+", "Y0"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"p", " ", "SOLBVEXP"}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1.`", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "p"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"1.`", " ", "B", " ", "D", " ", 
            RowBox[{"(", 
             RowBox[{"1.`", "\[InvisibleSpace]", "+", 
              SuperscriptBox["D", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"0.509280870006431`", "\[InvisibleSpace]", "-", 
              RowBox[{"0.35019639436735767`", " ", "D"}], "+", 
              SuperscriptBox["D", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"0.9999999999999999`", "\[InvisibleSpace]", "+", 
              RowBox[{"1.`", " ", "D"}], "+", 
              SuperscriptBox["D", "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"1.9635530389888245`", "\[InvisibleSpace]", "+", 
              RowBox[{"1.3501963943673576`", " ", "D"}], "+", 
              SuperscriptBox["D", "2"]}], ")"}], " ", "p"}], "+", 
           RowBox[{"A", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.0000000000000004`"}], "+", 
              RowBox[{
               SuperscriptBox["D", "5"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1.`"}], "-", 
                 RowBox[{"7.`", " ", "p"}]}], ")"}]}], "+", 
              RowBox[{
               SuperscriptBox["D", "6"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "5.`"}], "-", 
                 RowBox[{"5.`", " ", "p"}]}], ")"}]}], "+", 
              RowBox[{
               SuperscriptBox["D", "4"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "11.`"}], "-", 
                 RowBox[{"4.`", " ", "p"}]}], ")"}]}], "+", 
              RowBox[{
               SuperscriptBox["D", "3"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1.`"}], "-", 
                 RowBox[{"4.`", " ", "p"}]}], ")"}]}], "+", 
              RowBox[{
               SuperscriptBox["D", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "6.000000000000002`"}], "-", 
                 RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
              RowBox[{"D", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "2.220446049250313`*^-16"}], "-", 
                 RowBox[{"1.`", " ", "p"}]}], ")"}]}], "-", 
              RowBox[{"5.`", " ", 
               SuperscriptBox["D", "7"], " ", "p"}], "-", 
              RowBox[{"2.`", " ", 
               SuperscriptBox["D", "8"], " ", "p"}], "-", 
              RowBox[{"1.`", " ", 
               SuperscriptBox["D", "9"], " ", "p"}]}], ")"}]}], "-", 
           RowBox[{"1.0000000000000004`", " ", "D", " ", "Q"}], "-", 
           RowBox[{"1.0000000000000002`", " ", 
            SuperscriptBox["D", "2"], " ", "Q"}], "-", 
           RowBox[{"7.000000000000002`", " ", 
            SuperscriptBox["D", "3"], " ", "Q"}], "-", 
           RowBox[{"5.`", " ", 
            SuperscriptBox["D", "4"], " ", "Q"}], "-", 
           RowBox[{"15.`", " ", 
            SuperscriptBox["D", "5"], " ", "Q"}], "-", 
           RowBox[{"8.`", " ", 
            SuperscriptBox["D", "6"], " ", "Q"}], "-", 
           RowBox[{"10.`", " ", 
            SuperscriptBox["D", "7"], " ", "Q"}], "-", 
           RowBox[{"5.`", " ", 
            SuperscriptBox["D", "8"], " ", "Q"}], "-", 
           RowBox[{"2.`", " ", 
            SuperscriptBox["D", "9"], " ", "Q"}], "-", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "10"], " ", "Q"}], "-", 
           RowBox[{"1.0000000000000004`", " ", "Y0"}], "-", 
           RowBox[{"6.000000000000002`", " ", 
            SuperscriptBox["D", "2"], " ", "Y0"}], "-", 
           RowBox[{"11.`", " ", 
            SuperscriptBox["D", "4"], " ", "Y0"}], "-", 
           RowBox[{"6.`", " ", 
            SuperscriptBox["D", "6"], " ", "Y0"}], "-", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "8"], " ", "Y0"}], "-", 
           RowBox[{"2.220446049250313`*^-16", " ", "D", " ", "Y1"}], "-", 
           RowBox[{"2.220446049250313`*^-16", " ", 
            SuperscriptBox["D", "2"], " ", "Y1"}], "-", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "3"], " ", "Y1"}], "-", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "4"], " ", "Y1"}], "-", 
           RowBox[{"2.`", " ", 
            SuperscriptBox["D", "5"], " ", "Y1"}], "-", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "6"], " ", "Y1"}], "-", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "7"], " ", "Y1"}], "+", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "4"], " ", "Y2"}], "+", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "5"], " ", "Y2"}], "+", 
           RowBox[{"2.`", " ", 
            SuperscriptBox["D", "6"], " ", "Y2"}], "+", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "7"], " ", "Y2"}], "+", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "8"], " ", "Y2"}]}], ")"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1.3610953328233535`", "\[InvisibleSpace]", "-", 
           RowBox[{"0.7450895250672199`", " ", "D"}], "+", 
           SuperscriptBox["D", "2"]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"0.25130703272824556`", "\[InvisibleSpace]", "-", 
           RowBox[{"0.16161345782896566`", " ", "D"}], "+", 
           SuperscriptBox["D", "2"]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"0.47615593786216687`", "\[InvisibleSpace]", "+", 
           RowBox[{"0.14493478041901153`", " ", "D"}], "+", 
           SuperscriptBox["D", "2"]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"1.7714995242608043`", "\[InvisibleSpace]", "+", 
           RowBox[{"0.3235385864111817`", " ", "D"}], "+", 
           SuperscriptBox["D", "2"]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"3.46590431145028`", "\[InvisibleSpace]", "+", 
           RowBox[{"2.438229616065992`", " ", "D"}], "+", 
           SuperscriptBox["D", "2"]}], ")"}]}], ")"}]}]}], ")"}]}], "-", 
   RowBox[{"0.5`", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"p", " ", "SOLBVEXP"}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1.`", " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "p"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"1.`", " ", "B", " ", "D", " ", 
             RowBox[{"(", 
              RowBox[{"1.`", "\[InvisibleSpace]", "+", 
               SuperscriptBox["D", "2"]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{"0.509280870006431`", "\[InvisibleSpace]", "-", 
               RowBox[{"0.35019639436735767`", " ", "D"}], "+", 
               SuperscriptBox["D", "2"]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{"0.9999999999999999`", "\[InvisibleSpace]", "+", 
               RowBox[{"1.`", " ", "D"}], "+", 
               SuperscriptBox["D", "2"]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{"1.9635530389888245`", "\[InvisibleSpace]", "+", 
               RowBox[{"1.3501963943673576`", " ", "D"}], "+", 
               SuperscriptBox["D", "2"]}], ")"}], " ", "p"}], "+", 
            RowBox[{"A", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1.0000000000000004`"}], "+", 
               RowBox[{
                SuperscriptBox["D", "5"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1.`"}], "-", 
                  RowBox[{"7.`", " ", "p"}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox["D", "6"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "5.`"}], "-", 
                  RowBox[{"5.`", " ", "p"}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox["D", "4"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "11.`"}], "-", 
                  RowBox[{"4.`", " ", "p"}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox["D", "3"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1.`"}], "-", 
                  RowBox[{"4.`", " ", "p"}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox["D", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "6.000000000000002`"}], "-", 
                  RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
               RowBox[{"D", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "2.220446049250313`*^-16"}], "-", 
                  RowBox[{"1.`", " ", "p"}]}], ")"}]}], "-", 
               RowBox[{"5.`", " ", 
                SuperscriptBox["D", "7"], " ", "p"}], "-", 
               RowBox[{"2.`", " ", 
                SuperscriptBox["D", "8"], " ", "p"}], "-", 
               RowBox[{"1.`", " ", 
                SuperscriptBox["D", "9"], " ", "p"}]}], ")"}]}], "-", 
            RowBox[{"1.0000000000000004`", " ", "D", " ", "Q"}], "-", 
            RowBox[{"1.0000000000000002`", " ", 
             SuperscriptBox["D", "2"], " ", "Q"}], "-", 
            RowBox[{"7.000000000000002`", " ", 
             SuperscriptBox["D", "3"], " ", "Q"}], "-", 
            RowBox[{"5.`", " ", 
             SuperscriptBox["D", "4"], " ", "Q"}], "-", 
            RowBox[{"15.`", " ", 
             SuperscriptBox["D", "5"], " ", "Q"}], "-", 
            RowBox[{"8.`", " ", 
             SuperscriptBox["D", "6"], " ", "Q"}], "-", 
            RowBox[{"10.`", " ", 
             SuperscriptBox["D", "7"], " ", "Q"}], "-", 
            RowBox[{"5.`", " ", 
             SuperscriptBox["D", "8"], " ", "Q"}], "-", 
            RowBox[{"2.`", " ", 
             SuperscriptBox["D", "9"], " ", "Q"}], "-", 
            RowBox[{"1.`", " ", 
             SuperscriptBox["D", "10"], " ", "Q"}], "-", 
            RowBox[{"1.0000000000000004`", " ", "Y0"}], "-", 
            RowBox[{"6.000000000000002`", " ", 
             SuperscriptBox["D", "2"], " ", "Y0"}], "-", 
            RowBox[{"11.`", " ", 
             SuperscriptBox["D", "4"], " ", "Y0"}], "-", 
            RowBox[{"6.`", " ", 
             SuperscriptBox["D", "6"], " ", "Y0"}], "-", 
            RowBox[{"1.`", " ", 
             SuperscriptBox["D", "8"], " ", "Y0"}], "-", 
            RowBox[{"2.220446049250313`*^-16", " ", "D", " ", "Y1"}], "-", 
            RowBox[{"2.220446049250313`*^-16", " ", 
             SuperscriptBox["D", "2"], " ", "Y1"}], "-", 
            RowBox[{"1.`", " ", 
             SuperscriptBox["D", "3"], " ", "Y1"}], "-", 
            RowBox[{"1.`", " ", 
             SuperscriptBox["D", "4"], " ", "Y1"}], "-", 
            RowBox[{"2.`", " ", 
             SuperscriptBox["D", "5"], " ", "Y1"}], "-", 
            RowBox[{"1.`", " ", 
             SuperscriptBox["D", "6"], " ", "Y1"}], "-", 
            RowBox[{"1.`", " ", 
             SuperscriptBox["D", "7"], " ", "Y1"}], "+", 
            RowBox[{"1.`", " ", 
             SuperscriptBox["D", "4"], " ", "Y2"}], "+", 
            RowBox[{"1.`", " ", 
             SuperscriptBox["D", "5"], " ", "Y2"}], "+", 
            RowBox[{"2.`", " ", 
             SuperscriptBox["D", "6"], " ", "Y2"}], "+", 
            RowBox[{"1.`", " ", 
             SuperscriptBox["D", "7"], " ", "Y2"}], "+", 
            RowBox[{"1.`", " ", 
             SuperscriptBox["D", "8"], " ", "Y2"}]}], ")"}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1.3610953328233535`", "\[InvisibleSpace]", "-", 
            RowBox[{"0.7450895250672199`", " ", "D"}], "+", 
            SuperscriptBox["D", "2"]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"0.25130703272824556`", "\[InvisibleSpace]", "-", 
            RowBox[{"0.16161345782896566`", " ", "D"}], "+", 
            SuperscriptBox["D", "2"]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"0.47615593786216687`", "\[InvisibleSpace]", "+", 
            RowBox[{"0.14493478041901153`", " ", "D"}], "+", 
            SuperscriptBox["D", "2"]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"1.7714995242608043`", "\[InvisibleSpace]", "+", 
            RowBox[{"0.3235385864111817`", " ", "D"}], "+", 
            SuperscriptBox["D", "2"]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"3.46590431145028`", "\[InvisibleSpace]", "+", 
            RowBox[{"2.438229616065992`", " ", "D"}], "+", 
            SuperscriptBox["D", "2"]}], ")"}]}], ")"}]}]}], ")"}], "2"]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.528386327747105*^9, 3.528386486929785*^9, 3.528386560827115*^9, 
   3.5283866852529335`*^9, {3.528386735656622*^9, 3.528386777199495*^9}, 
   3.528386819569169*^9, 3.5283870510817986`*^9, 3.5283871016102877`*^9, 
   3.5283871809052267`*^9, 3.528387291854312*^9, 3.5283873948456926`*^9, 
   3.5283874878005185`*^9, {3.5283875533444753`*^9, 3.528387571440507*^9}, 
   3.528387626664604*^9, {3.5283883586576433`*^9, 3.5283883681736603`*^9}, 
   3.5283885376835575`*^9, 3.528388595481659*^9, 3.528388674932599*^9, 
   3.528809066041321*^9, 3.528809131062235*^9, 3.528809226986803*^9, {
   3.5288093702886553`*^9, 3.5288093894298887`*^9}, 3.5288140098090277`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"A", "+", "Y", "-", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1.`", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "1.0000000000000004`"}], " ", "D"}], "-", 
        RowBox[{"1.0000000000000002`", " ", 
         SuperscriptBox["D", "2"]}], "-", 
        RowBox[{"7.000000000000002`", " ", 
         SuperscriptBox["D", "3"]}], "-", 
        RowBox[{"5.`", " ", 
         SuperscriptBox["D", "4"]}], "-", 
        RowBox[{"15.`", " ", 
         SuperscriptBox["D", "5"]}], "-", 
        RowBox[{"8.`", " ", 
         SuperscriptBox["D", "6"]}], "-", 
        RowBox[{"10.`", " ", 
         SuperscriptBox["D", "7"]}], "-", 
        RowBox[{"5.`", " ", 
         SuperscriptBox["D", "8"]}], "-", 
        RowBox[{"2.`", " ", 
         SuperscriptBox["D", "9"]}], "-", 
        RowBox[{"1.`", " ", 
         SuperscriptBox["D", "10"]}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", "p"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"A", "+", "Y0"}], ")"}]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1.3610953328233535`", "\[InvisibleSpace]", "-", 
        RowBox[{"0.7450895250672199`", " ", "D"}], "+", 
        SuperscriptBox["D", "2"]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"0.25130703272824556`", "\[InvisibleSpace]", "-", 
        RowBox[{"0.16161345782896566`", " ", "D"}], "+", 
        SuperscriptBox["D", "2"]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"0.47615593786216687`", "\[InvisibleSpace]", "+", 
        RowBox[{"0.14493478041901153`", " ", "D"}], "+", 
        SuperscriptBox["D", "2"]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"1.7714995242608043`", "\[InvisibleSpace]", "+", 
        RowBox[{"0.3235385864111817`", " ", "D"}], "+", 
        SuperscriptBox["D", "2"]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"3.46590431145028`", "\[InvisibleSpace]", "+", 
        RowBox[{"2.438229616065992`", " ", "D"}], "+", 
        SuperscriptBox["D", "2"]}], ")"}]}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1.`", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "1.0000000000000004`"}], " ", "D"}], "-", 
        RowBox[{"1.0000000000000002`", " ", 
         SuperscriptBox["D", "2"]}], "-", 
        RowBox[{"7.000000000000002`", " ", 
         SuperscriptBox["D", "3"]}], "-", 
        RowBox[{"5.`", " ", 
         SuperscriptBox["D", "4"]}], "-", 
        RowBox[{"15.`", " ", 
         SuperscriptBox["D", "5"]}], "-", 
        RowBox[{"8.`", " ", 
         SuperscriptBox["D", "6"]}], "-", 
        RowBox[{"10.`", " ", 
         SuperscriptBox["D", "7"]}], "-", 
        RowBox[{"5.`", " ", 
         SuperscriptBox["D", "8"]}], "-", 
        RowBox[{"2.`", " ", 
         SuperscriptBox["D", "9"]}], "-", 
        RowBox[{"1.`", " ", 
         SuperscriptBox["D", "10"]}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", "p"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"p", " ", "SOLBVEXP"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1.`", " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", "p"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"1.`", " ", "B", " ", "D", " ", 
              RowBox[{"(", 
               RowBox[{"1.`", "\[InvisibleSpace]", "+", 
                SuperscriptBox["D", "2"]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{"0.509280870006431`", "\[InvisibleSpace]", "-", 
                RowBox[{"0.35019639436735767`", " ", "D"}], "+", 
                SuperscriptBox["D", "2"]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{"0.9999999999999999`", "\[InvisibleSpace]", "+", 
                RowBox[{"1.`", " ", "D"}], "+", 
                SuperscriptBox["D", "2"]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{"1.9635530389888245`", "\[InvisibleSpace]", "+", 
                RowBox[{"1.3501963943673576`", " ", "D"}], "+", 
                SuperscriptBox["D", "2"]}], ")"}], " ", "p"}], "+", 
             RowBox[{"A", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1.0000000000000004`"}], "+", 
                RowBox[{
                 SuperscriptBox["D", "5"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1.`"}], "-", 
                   RowBox[{"7.`", " ", "p"}]}], ")"}]}], "+", 
                RowBox[{
                 SuperscriptBox["D", "6"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "5.`"}], "-", 
                   RowBox[{"5.`", " ", "p"}]}], ")"}]}], "+", 
                RowBox[{
                 SuperscriptBox["D", "4"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "11.`"}], "-", 
                   RowBox[{"4.`", " ", "p"}]}], ")"}]}], "+", 
                RowBox[{
                 SuperscriptBox["D", "3"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1.`"}], "-", 
                   RowBox[{"4.`", " ", "p"}]}], ")"}]}], "+", 
                RowBox[{
                 SuperscriptBox["D", "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "6.000000000000002`"}], "-", 
                   RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
                RowBox[{"D", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "2.220446049250313`*^-16"}], "-", 
                   RowBox[{"1.`", " ", "p"}]}], ")"}]}], "-", 
                RowBox[{"5.`", " ", 
                 SuperscriptBox["D", "7"], " ", "p"}], "-", 
                RowBox[{"2.`", " ", 
                 SuperscriptBox["D", "8"], " ", "p"}], "-", 
                RowBox[{"1.`", " ", 
                 SuperscriptBox["D", "9"], " ", "p"}]}], ")"}]}], "-", 
             RowBox[{"1.0000000000000004`", " ", "D", " ", "Q"}], "-", 
             RowBox[{"1.0000000000000002`", " ", 
              SuperscriptBox["D", "2"], " ", "Q"}], "-", 
             RowBox[{"7.000000000000002`", " ", 
              SuperscriptBox["D", "3"], " ", "Q"}], "-", 
             RowBox[{"5.`", " ", 
              SuperscriptBox["D", "4"], " ", "Q"}], "-", 
             RowBox[{"15.`", " ", 
              SuperscriptBox["D", "5"], " ", "Q"}], "-", 
             RowBox[{"8.`", " ", 
              SuperscriptBox["D", "6"], " ", "Q"}], "-", 
             RowBox[{"10.`", " ", 
              SuperscriptBox["D", "7"], " ", "Q"}], "-", 
             RowBox[{"5.`", " ", 
              SuperscriptBox["D", "8"], " ", "Q"}], "-", 
             RowBox[{"2.`", " ", 
              SuperscriptBox["D", "9"], " ", "Q"}], "-", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "10"], " ", "Q"}], "-", 
             RowBox[{"1.0000000000000004`", " ", "Y0"}], "-", 
             RowBox[{"6.000000000000002`", " ", 
              SuperscriptBox["D", "2"], " ", "Y0"}], "-", 
             RowBox[{"11.`", " ", 
              SuperscriptBox["D", "4"], " ", "Y0"}], "-", 
             RowBox[{"6.`", " ", 
              SuperscriptBox["D", "6"], " ", "Y0"}], "-", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "8"], " ", "Y0"}], "-", 
             RowBox[{"2.220446049250313`*^-16", " ", "D", " ", "Y1"}], "-", 
             RowBox[{"2.220446049250313`*^-16", " ", 
              SuperscriptBox["D", "2"], " ", "Y1"}], "-", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "3"], " ", "Y1"}], "-", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "4"], " ", "Y1"}], "-", 
             RowBox[{"2.`", " ", 
              SuperscriptBox["D", "5"], " ", "Y1"}], "-", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "6"], " ", "Y1"}], "-", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "7"], " ", "Y1"}], "+", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "4"], " ", "Y2"}], "+", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "5"], " ", "Y2"}], "+", 
             RowBox[{"2.`", " ", 
              SuperscriptBox["D", "6"], " ", "Y2"}], "+", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "7"], " ", "Y2"}], "+", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "8"], " ", "Y2"}]}], ")"}]}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1.3610953328233535`", "\[InvisibleSpace]", "-", 
             RowBox[{"0.7450895250672199`", " ", "D"}], "+", 
             SuperscriptBox["D", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"0.25130703272824556`", "\[InvisibleSpace]", "-", 
             RowBox[{"0.16161345782896566`", " ", "D"}], "+", 
             SuperscriptBox["D", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"0.47615593786216687`", "\[InvisibleSpace]", "+", 
             RowBox[{"0.14493478041901153`", " ", "D"}], "+", 
             SuperscriptBox["D", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"1.7714995242608043`", "\[InvisibleSpace]", "+", 
             RowBox[{"0.3235385864111817`", " ", "D"}], "+", 
             SuperscriptBox["D", "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"3.46590431145028`", "\[InvisibleSpace]", "+", 
             RowBox[{"2.438229616065992`", " ", "D"}], "+", 
             SuperscriptBox["D", "2"]}], ")"}]}], ")"}]}]}], ")"}]}], ")"}], 
    "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1.3610953328233535`", "\[InvisibleSpace]", "-", 
        RowBox[{"0.7450895250672199`", " ", "D"}], "+", 
        SuperscriptBox["D", "2"]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"0.25130703272824556`", "\[InvisibleSpace]", "-", 
        RowBox[{"0.16161345782896566`", " ", "D"}], "+", 
        SuperscriptBox["D", "2"]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"0.47615593786216687`", "\[InvisibleSpace]", "+", 
        RowBox[{"0.14493478041901153`", " ", "D"}], "+", 
        SuperscriptBox["D", "2"]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"1.7714995242608043`", "\[InvisibleSpace]", "+", 
        RowBox[{"0.3235385864111817`", " ", "D"}], "+", 
        SuperscriptBox["D", "2"]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"3.46590431145028`", "\[InvisibleSpace]", "+", 
        RowBox[{"2.438229616065992`", " ", "D"}], "+", 
        SuperscriptBox["D", "2"]}], ")"}]}], ")"}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.528386327747105*^9, 3.528386486929785*^9, 3.528386560827115*^9, 
   3.5283866852529335`*^9, {3.528386735656622*^9, 3.528386777199495*^9}, 
   3.528386819569169*^9, 3.5283870510817986`*^9, 3.5283871016102877`*^9, 
   3.5283871809052267`*^9, 3.528387291854312*^9, 3.5283873948456926`*^9, 
   3.5283874878005185`*^9, {3.5283875533444753`*^9, 3.528387571440507*^9}, 
   3.528387626664604*^9, {3.5283883586576433`*^9, 3.5283883681736603`*^9}, 
   3.5283885376835575`*^9, 3.528388595481659*^9, 3.528388674932599*^9, 
   3.528809066041321*^9, 3.528809131062235*^9, 3.528809226986803*^9, {
   3.5288093702886553`*^9, 3.5288093894298887`*^9}, 3.528814009840228*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"Q", "\[Rule]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"B", " ", 
        SuperscriptBox["D", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "1.0000000000000002`"}], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
          RowBox[{"2.0000000000000004`", " ", "D", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
          RowBox[{"12.`", " ", 
           SuperscriptBox["D", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
          RowBox[{"20.`", " ", 
           SuperscriptBox["D", "3"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
          RowBox[{"59.`", " ", 
           SuperscriptBox["D", "4"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
          RowBox[{"83.`", " ", 
           SuperscriptBox["D", "5"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
          RowBox[{"157.`", " ", 
           SuperscriptBox["D", "6"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
          RowBox[{"183.99999999999997`", " ", 
           SuperscriptBox["D", "7"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
          RowBox[{"233.99999999999997`", " ", 
           SuperscriptBox["D", "9"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
          RowBox[{"231.`", " ", 
           SuperscriptBox["D", "10"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
          RowBox[{"172.`", " ", 
           SuperscriptBox["D", "11"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
          RowBox[{"124.`", " ", 
           SuperscriptBox["D", "12"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
          RowBox[{"70.`", " ", 
           SuperscriptBox["D", "13"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
          RowBox[{"35.`", " ", 
           SuperscriptBox["D", "14"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
          RowBox[{"14.`", " ", 
           SuperscriptBox["D", "15"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
          RowBox[{"4.`", " ", 
           SuperscriptBox["D", "16"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "17"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
          RowBox[{"246.99999999999997`", " ", 
           SuperscriptBox["D", "8"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1.0000000002328306`"}], "+", "p"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "0.9999999997671694`"}], "+", "p"}], ")"}]}]}], 
         ")"}], " ", "p"}], "+", 
       RowBox[{"A", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1.0000000000000013`"}], "+", 
          RowBox[{"1.0000000000000009`", " ", "D", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1.0000000000000002`"}], "+", "p"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"4.440892098500621`*^-16", "+", "p"}], ")"}]}], "+", 
          RowBox[{"2.000000000000001`", " ", 
           SuperscriptBox["D", "3"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1.2282143799313479`"}], "+", "p"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"0.38063487829158216`", "\[InvisibleSpace]", "+", "p"}], 
            ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"5.3475795016397685`", "\[InvisibleSpace]", "+", "p"}], 
            ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["D", "20"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "2.`"}], "+", 
             RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
          RowBox[{"14.`", " ", 
           SuperscriptBox["D", "17"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1.6705912051528342`"}], "+", "p"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"3.163978278714045`", "\[InvisibleSpace]", "-", 
             RowBox[{"0.3294087948471658`", " ", "p"}], "+", 
             SuperscriptBox["p", "2"]}], ")"}]}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "19"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1.7521717788841866`"}], "+", "p"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"4.565762384949801`", "\[InvisibleSpace]", "-", 
             RowBox[{"0.24782822111581346`", " ", "p"}], "+", 
             SuperscriptBox["p", "2"]}], ")"}]}], "+", 
          RowBox[{"70.`", " ", 
           SuperscriptBox["D", "15"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1.608254594248561`"}], "+", "p"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"2.522699373377828`", "\[InvisibleSpace]", "-", 
             RowBox[{"0.23460254860858154`", " ", "p"}], "+", 
             SuperscriptBox["p", "2"]}], ")"}]}], "+", 
          RowBox[{"4.`", " ", 
           SuperscriptBox["D", "18"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1.778884943462523`"}], "+", "p"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"4.356661755152617`", "\[InvisibleSpace]", "-", 
             RowBox[{"0.22111505653747707`", " ", "p"}], "+", 
             SuperscriptBox["p", "2"]}], ")"}]}], "+", 
          RowBox[{"35.`", " ", 
           SuperscriptBox["D", "16"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1.6873433762451922`"}], "+", "p"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"2.827775684903168`", "\[InvisibleSpace]", "-", 
             RowBox[{"0.1697994808976648`", " ", "p"}], "+", 
             SuperscriptBox["p", "2"]}], ")"}]}], "+", 
          RowBox[{"124.`", " ", 
           SuperscriptBox["D", "14"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1.651397426156074`"}], "+", "p"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"2.261037172882845`", "\[InvisibleSpace]", "-", 
             RowBox[{"0.042150960940700206`", " ", "p"}], "+", 
             SuperscriptBox["p", "2"]}], ")"}]}], "+", 
          RowBox[{"172.`", " ", 
           SuperscriptBox["D", "13"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1.5579418114556545`"}], "+", "p"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"2.198040119002632`", "\[InvisibleSpace]", "+", 
             RowBox[{"0.011430183548677574`", " ", "p"}], "+", 
             SuperscriptBox["p", "2"]}], ")"}]}], "+", 
          RowBox[{"231.`", " ", 
           SuperscriptBox["D", "12"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1.6626486378800693`"}], "+", "p"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"1.9970222479356015`", "\[InvisibleSpace]", "+", 
             RowBox[{"0.1518261270575585`", " ", "p"}], "+", 
             SuperscriptBox["p", "2"]}], ")"}]}], "+", 
          RowBox[{"247.`", " ", 
           SuperscriptBox["D", "10"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1.7217937361484323`"}], "+", "p"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"1.9257762437337407`", "\[InvisibleSpace]", "+", 
             RowBox[{"0.4060042624642217`", " ", "p"}], "+", 
             SuperscriptBox["p", "2"]}], ")"}]}], "+", 
          RowBox[{"234.`", " ", 
           SuperscriptBox["D", "11"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1.5115647271928403`"}], "+", "p"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"2.032760832118554`", "\[InvisibleSpace]", "+", 
             RowBox[{"0.4090006246287377`", " ", "p"}], "+", 
             SuperscriptBox["p", "2"]}], ")"}]}], "+", 
          RowBox[{"157.`", " ", 
           SuperscriptBox["D", "8"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1.8335234927038357`"}], "+", "p"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"2.0356892569339013`", "\[InvisibleSpace]", "+", 
             RowBox[{"0.693396104168804`", " ", "p"}], "+", 
             SuperscriptBox["p", "2"]}], ")"}]}], "+", 
          RowBox[{"184.`", " ", 
           SuperscriptBox["D", "9"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1.4656233676977384`"}], "+", "p"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"1.9616226537900865`", "\[InvisibleSpace]", "+", 
             RowBox[{"0.9601885850890428`", " ", "p"}], "+", 
             SuperscriptBox["p", "2"]}], ")"}]}], "+", 
          RowBox[{"59.000000000000014`", " ", 
           SuperscriptBox["D", "6"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "2.0040883169427137`"}], "+", "p"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"2.351126128996016`", "\[InvisibleSpace]", "+", 
             RowBox[{"0.9701900118579678`", " ", "p"}], "+", 
             SuperscriptBox["p", "2"]}], ")"}]}], "+", 
          RowBox[{"12.000000000000004`", " ", 
           SuperscriptBox["D", "4"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "2.269472161323937`"}], "+", "p"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"3.0476983963670707`", "\[InvisibleSpace]", "+", 
             RowBox[{"1.2694721613239368`", " ", "p"}], "+", 
             SuperscriptBox["p", "2"]}], ")"}]}], "+", 
          RowBox[{"83.`", " ", 
           SuperscriptBox["D", "7"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1.4164081034297373`"}], "+", "p"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"1.9479104489006347`", "\[InvisibleSpace]", "+", 
             RowBox[{"1.6814683443935934`", " ", "p"}], "+", 
             SuperscriptBox["p", "2"]}], ")"}]}], "+", 
          RowBox[{"1.0000000000000004`", " ", 
           SuperscriptBox["D", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "2.793733799276503`"}], "+", "p"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"5.01121474194342`", "\[InvisibleSpace]", "+", 
             RowBox[{"1.793733799276503`", " ", "p"}], "+", 
             SuperscriptBox["p", "2"]}], ")"}]}], "+", 
          RowBox[{"20.000000000000007`", " ", 
           SuperscriptBox["D", "5"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1.3469599999065403`"}], "+", "p"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"1.9673932412127126`", "\[InvisibleSpace]", "+", 
             RowBox[{"2.796959999906541`", " ", "p"}], "+", 
             SuperscriptBox["p", "2"]}], ")"}]}]}], ")"}]}], "+", 
       RowBox[{"1.000000000000001`", " ", "D", " ", "p", " ", "SOLBVEXP"}], 
       "+", 
       RowBox[{"1.000000000000001`", " ", 
        SuperscriptBox["D", "2"], " ", "p", " ", "SOLBVEXP"}], "+", 
       RowBox[{"14.000000000000014`", " ", 
        SuperscriptBox["D", "3"], " ", "p", " ", "SOLBVEXP"}], "+", 
       RowBox[{"14.000000000000012`", " ", 
        SuperscriptBox["D", "4"], " ", "p", " ", "SOLBVEXP"}], "+", 
       RowBox[{"82.00000000000007`", " ", 
        SuperscriptBox["D", "5"], " ", "p", " ", "SOLBVEXP"}], "+", 
       RowBox[{"79.00000000000006`", " ", 
        SuperscriptBox["D", "6"], " ", "p", " ", "SOLBVEXP"}], "+", 
       RowBox[{"257.00000000000017`", " ", 
        SuperscriptBox["D", "7"], " ", "p", " ", "SOLBVEXP"}], "+", 
       RowBox[{"233.00000000000009`", " ", 
        SuperscriptBox["D", "8"], " ", "p", " ", "SOLBVEXP"}], "+", 
       RowBox[{"468.00000000000017`", " ", 
        SuperscriptBox["D", "9"], " ", "p", " ", "SOLBVEXP"}], "+", 
       RowBox[{"394.0000000000001`", " ", 
        SuperscriptBox["D", "10"], " ", "p", " ", "SOLBVEXP"}], "+", 
       RowBox[{"517.0000000000001`", " ", 
        SuperscriptBox["D", "11"], " ", "p", " ", "SOLBVEXP"}], "+", 
       RowBox[{"398.0000000000001`", " ", 
        SuperscriptBox["D", "12"], " ", "p", " ", "SOLBVEXP"}], "+", 
       RowBox[{"359.00000000000006`", " ", 
        SuperscriptBox["D", "13"], " ", "p", " ", "SOLBVEXP"}], "+", 
       RowBox[{"241.00000000000003`", " ", 
        SuperscriptBox["D", "14"], " ", "p", " ", "SOLBVEXP"}], "+", 
       RowBox[{"155.00000000000003`", " ", 
        SuperscriptBox["D", "15"], " ", "p", " ", "SOLBVEXP"}], "+", 
       RowBox[{"84.00000000000001`", " ", 
        SuperscriptBox["D", "16"], " ", "p", " ", "SOLBVEXP"}], "+", 
       RowBox[{"38.`", " ", 
        SuperscriptBox["D", "17"], " ", "p", " ", "SOLBVEXP"}], "+", 
       RowBox[{"15.`", " ", 
        SuperscriptBox["D", "18"], " ", "p", " ", "SOLBVEXP"}], "+", 
       RowBox[{"4.`", " ", 
        SuperscriptBox["D", "19"], " ", "p", " ", "SOLBVEXP"}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "20"], " ", "p", " ", "SOLBVEXP"}], "-", 
       RowBox[{"1.000000000000001`", " ", "D", " ", 
        SuperscriptBox["p", "2"], " ", "SOLBVEXP"}], "-", 
       RowBox[{"1.000000000000001`", " ", 
        SuperscriptBox["D", "2"], " ", 
        SuperscriptBox["p", "2"], " ", "SOLBVEXP"}], "-", 
       RowBox[{"14.000000000000014`", " ", 
        SuperscriptBox["D", "3"], " ", 
        SuperscriptBox["p", "2"], " ", "SOLBVEXP"}], "-", 
       RowBox[{"14.000000000000012`", " ", 
        SuperscriptBox["D", "4"], " ", 
        SuperscriptBox["p", "2"], " ", "SOLBVEXP"}], "-", 
       RowBox[{"82.00000000000007`", " ", 
        SuperscriptBox["D", "5"], " ", 
        SuperscriptBox["p", "2"], " ", "SOLBVEXP"}], "-", 
       RowBox[{"79.00000000000006`", " ", 
        SuperscriptBox["D", "6"], " ", 
        SuperscriptBox["p", "2"], " ", "SOLBVEXP"}], "-", 
       RowBox[{"257.00000000000017`", " ", 
        SuperscriptBox["D", "7"], " ", 
        SuperscriptBox["p", "2"], " ", "SOLBVEXP"}], "-", 
       RowBox[{"233.00000000000009`", " ", 
        SuperscriptBox["D", "8"], " ", 
        SuperscriptBox["p", "2"], " ", "SOLBVEXP"}], "-", 
       RowBox[{"468.00000000000017`", " ", 
        SuperscriptBox["D", "9"], " ", 
        SuperscriptBox["p", "2"], " ", "SOLBVEXP"}], "-", 
       RowBox[{"394.0000000000001`", " ", 
        SuperscriptBox["D", "10"], " ", 
        SuperscriptBox["p", "2"], " ", "SOLBVEXP"}], "-", 
       RowBox[{"517.0000000000001`", " ", 
        SuperscriptBox["D", "11"], " ", 
        SuperscriptBox["p", "2"], " ", "SOLBVEXP"}], "-", 
       RowBox[{"398.0000000000001`", " ", 
        SuperscriptBox["D", "12"], " ", 
        SuperscriptBox["p", "2"], " ", "SOLBVEXP"}], "-", 
       RowBox[{"359.00000000000006`", " ", 
        SuperscriptBox["D", "13"], " ", 
        SuperscriptBox["p", "2"], " ", "SOLBVEXP"}], "-", 
       RowBox[{"241.00000000000003`", " ", 
        SuperscriptBox["D", "14"], " ", 
        SuperscriptBox["p", "2"], " ", "SOLBVEXP"}], "-", 
       RowBox[{"155.00000000000003`", " ", 
        SuperscriptBox["D", "15"], " ", 
        SuperscriptBox["p", "2"], " ", "SOLBVEXP"}], "-", 
       RowBox[{"84.00000000000001`", " ", 
        SuperscriptBox["D", "16"], " ", 
        SuperscriptBox["p", "2"], " ", "SOLBVEXP"}], "-", 
       RowBox[{"38.`", " ", 
        SuperscriptBox["D", "17"], " ", 
        SuperscriptBox["p", "2"], " ", "SOLBVEXP"}], "-", 
       RowBox[{"15.`", " ", 
        SuperscriptBox["D", "18"], " ", 
        SuperscriptBox["p", "2"], " ", "SOLBVEXP"}], "-", 
       RowBox[{"4.`", " ", 
        SuperscriptBox["D", "19"], " ", 
        SuperscriptBox["p", "2"], " ", "SOLBVEXP"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "20"], " ", 
        SuperscriptBox["p", "2"], " ", "SOLBVEXP"}], "-", 
       RowBox[{"1.0000000000000013`", " ", "Y"}], "-", 
       RowBox[{"2.2204460492503146`*^-16", " ", "D", " ", "Y"}], "-", 
       RowBox[{"14.000000000000018`", " ", 
        SuperscriptBox["D", "2"], " ", "Y"}], "-", 
       RowBox[{"4.000000000000007`", " ", 
        SuperscriptBox["D", "3"], " ", "Y"}], "-", 
       RowBox[{"81.00000000000009`", " ", 
        SuperscriptBox["D", "4"], " ", "Y"}], "-", 
       RowBox[{"40.00000000000005`", " ", 
        SuperscriptBox["D", "5"], " ", "Y"}], "-", 
       RowBox[{"256.0000000000002`", " ", 
        SuperscriptBox["D", "6"], " ", "Y"}], "-", 
       RowBox[{"160.00000000000014`", " ", 
        SuperscriptBox["D", "7"], " ", "Y"}], "-", 
       RowBox[{"488.0000000000003`", " ", 
        SuperscriptBox["D", "8"], " ", "Y"}], "-", 
       RowBox[{"336.0000000000002`", " ", 
        SuperscriptBox["D", "9"], " ", "Y"}], "-", 
       RowBox[{"594.0000000000002`", " ", 
        SuperscriptBox["D", "10"], " ", "Y"}], "-", 
       RowBox[{"412.00000000000017`", " ", 
        SuperscriptBox["D", "11"], " ", "Y"}], "-", 
       RowBox[{"482.00000000000017`", " ", 
        SuperscriptBox["D", "12"], " ", "Y"}], "-", 
       RowBox[{"308.0000000000001`", " ", 
        SuperscriptBox["D", "13"], " ", "Y"}], "-", 
       RowBox[{"260.00000000000006`", " ", 
        SuperscriptBox["D", "14"], " ", "Y"}], "-", 
       RowBox[{"140.00000000000003`", " ", 
        SuperscriptBox["D", "15"], " ", "Y"}], "-", 
       RowBox[{"88.00000000000001`", " ", 
        SuperscriptBox["D", "16"], " ", "Y"}], "-", 
       RowBox[{"36.`", " ", 
        SuperscriptBox["D", "17"], " ", "Y"}], "-", 
       RowBox[{"16.`", " ", 
        SuperscriptBox["D", "18"], " ", "Y"}], "-", 
       RowBox[{"4.`", " ", 
        SuperscriptBox["D", "19"], " ", "Y"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "20"], " ", "Y"}], "-", 
       RowBox[{"2.220446049250313`*^-16", " ", "D", " ", "Y0"}], "-", 
       RowBox[{"4.440892098500626`*^-16", " ", 
        SuperscriptBox["D", "2"], " ", "Y0"}], "-", 
       RowBox[{"1.0000000000000036`", " ", 
        SuperscriptBox["D", "3"], " ", "Y0"}], "-", 
       RowBox[{"3.000000000000007`", " ", 
        SuperscriptBox["D", "4"], " ", "Y0"}], "-", 
       RowBox[{"14.000000000000043`", " ", 
        SuperscriptBox["D", "5"], " ", "Y0"}], "-", 
       RowBox[{"30.000000000000043`", " ", 
        SuperscriptBox["D", "6"], " ", "Y0"}], "-", 
       RowBox[{"74.00000000000011`", " ", 
        SuperscriptBox["D", "7"], " ", "Y0"}], "-", 
       RowBox[{"119.00000000000007`", " ", 
        SuperscriptBox["D", "8"], " ", "Y0"}], "-", 
       RowBox[{"198.00000000000017`", " ", 
        SuperscriptBox["D", "9"], " ", "Y0"}], "-", 
       RowBox[{"244.0000000000001`", " ", 
        SuperscriptBox["D", "10"], " ", "Y0"}], "-", 
       RowBox[{"298.0000000000001`", " ", 
        SuperscriptBox["D", "11"], " ", "Y0"}], "-", 
       RowBox[{"284.0000000000001`", " ", 
        SuperscriptBox["D", "12"], " ", "Y0"}], "-", 
       RowBox[{"262.00000000000006`", " ", 
        SuperscriptBox["D", "13"], " ", "Y0"}], "-", 
       RowBox[{"192.00000000000003`", " ", 
        SuperscriptBox["D", "14"], " ", "Y0"}], "-", 
       RowBox[{"133.00000000000003`", " ", 
        SuperscriptBox["D", "15"], " ", "Y0"}], "-", 
       RowBox[{"73.00000000000001`", " ", 
        SuperscriptBox["D", "16"], " ", "Y0"}], "-", 
       RowBox[{"36.`", " ", 
        SuperscriptBox["D", "17"], " ", "Y0"}], "-", 
       RowBox[{"14.`", " ", 
        SuperscriptBox["D", "18"], " ", "Y0"}], "-", 
       RowBox[{"4.`", " ", 
        SuperscriptBox["D", "19"], " ", "Y0"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "20"], " ", "Y0"}], "-", 
       RowBox[{"1.0000000000000007`", " ", "D", " ", "p", " ", "Y0"}], "-", 
       RowBox[{"1.0000000000000002`", " ", 
        SuperscriptBox["D", "2"], " ", "p", " ", "Y0"}], "-", 
       RowBox[{"12.000000000000007`", " ", 
        SuperscriptBox["D", "3"], " ", "p", " ", "Y0"}], "-", 
       RowBox[{"7.999999999999998`", " ", 
        SuperscriptBox["D", "4"], " ", "p", " ", "Y0"}], "-", 
       RowBox[{"53.999999999999986`", " ", 
        SuperscriptBox["D", "5"], " ", "p", " ", "Y0"}], "-", 
       RowBox[{"18.99999999999997`", " ", 
        SuperscriptBox["D", "6"], " ", "p", " ", "Y0"}], "-", 
       RowBox[{"108.99999999999994`", " ", 
        SuperscriptBox["D", "7"], " ", "p", " ", "Y0"}], "+", 
       RowBox[{"5.000000000000057`", " ", 
        SuperscriptBox["D", "8"], " ", "p", " ", "Y0"}], "-", 
       RowBox[{"71.99999999999983`", " ", 
        SuperscriptBox["D", "9"], " ", "p", " ", "Y0"}], "+", 
       RowBox[{"94.00000000000011`", " ", 
        SuperscriptBox["D", "10"], " ", "p", " ", "Y0"}], "+", 
       RowBox[{"79.00000000000011`", " ", 
        SuperscriptBox["D", "11"], " ", "p", " ", "Y0"}], "+", 
       RowBox[{"170.0000000000001`", " ", 
        SuperscriptBox["D", "12"], " ", "p", " ", "Y0"}], "+", 
       RowBox[{"165.00000000000006`", " ", 
        SuperscriptBox["D", "13"], " ", "p", " ", "Y0"}], "+", 
       RowBox[{"143.00000000000003`", " ", 
        SuperscriptBox["D", "14"], " ", "p", " ", "Y0"}], "+", 
       RowBox[{"111.00000000000003`", " ", 
        SuperscriptBox["D", "15"], " ", "p", " ", "Y0"}], "+", 
       RowBox[{"62.000000000000014`", " ", 
        SuperscriptBox["D", "16"], " ", "p", " ", "Y0"}], "+", 
       RowBox[{"34.`", " ", 
        SuperscriptBox["D", "17"], " ", "p", " ", "Y0"}], "+", 
       RowBox[{"13.`", " ", 
        SuperscriptBox["D", "18"], " ", "p", " ", "Y0"}], "+", 
       RowBox[{"4.`", " ", 
        SuperscriptBox["D", "19"], " ", "p", " ", "Y0"}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "20"], " ", "p", " ", "Y0"}], "+", 
       RowBox[{"1.0000000000000009`", " ", "D", " ", 
        SuperscriptBox["p", "2"], " ", "Y0"}], "+", 
       RowBox[{"1.0000000000000007`", " ", 
        SuperscriptBox["D", "2"], " ", 
        SuperscriptBox["p", "2"], " ", "Y0"}], "+", 
       RowBox[{"13.00000000000001`", " ", 
        SuperscriptBox["D", "3"], " ", 
        SuperscriptBox["p", "2"], " ", "Y0"}], "+", 
       RowBox[{"11.000000000000005`", " ", 
        SuperscriptBox["D", "4"], " ", 
        SuperscriptBox["p", "2"], " ", "Y0"}], "+", 
       RowBox[{"68.00000000000003`", " ", 
        SuperscriptBox["D", "5"], " ", 
        SuperscriptBox["p", "2"], " ", "Y0"}], "+", 
       RowBox[{"49.000000000000014`", " ", 
        SuperscriptBox["D", "6"], " ", 
        SuperscriptBox["p", "2"], " ", "Y0"}], "+", 
       RowBox[{"183.00000000000006`", " ", 
        SuperscriptBox["D", "7"], " ", 
        SuperscriptBox["p", "2"], " ", "Y0"}], "+", 
       RowBox[{"114.00000000000001`", " ", 
        SuperscriptBox["D", "8"], " ", 
        SuperscriptBox["p", "2"], " ", "Y0"}], "+", 
       RowBox[{"270.`", " ", 
        SuperscriptBox["D", "9"], " ", 
        SuperscriptBox["p", "2"], " ", "Y0"}], "+", 
       RowBox[{"150.`", " ", 
        SuperscriptBox["D", "10"], " ", 
        SuperscriptBox["p", "2"], " ", "Y0"}], "+", 
       RowBox[{"219.`", " ", 
        SuperscriptBox["D", "11"], " ", 
        SuperscriptBox["p", "2"], " ", "Y0"}], "+", 
       RowBox[{"114.`", " ", 
        SuperscriptBox["D", "12"], " ", 
        SuperscriptBox["p", "2"], " ", "Y0"}], "+", 
       RowBox[{"97.`", " ", 
        SuperscriptBox["D", "13"], " ", 
        SuperscriptBox["p", "2"], " ", "Y0"}], "+", 
       RowBox[{"49.`", " ", 
        SuperscriptBox["D", "14"], " ", 
        SuperscriptBox["p", "2"], " ", "Y0"}], "+", 
       RowBox[{"22.`", " ", 
        SuperscriptBox["D", "15"], " ", 
        SuperscriptBox["p", "2"], " ", "Y0"}], "+", 
       RowBox[{"11.`", " ", 
        SuperscriptBox["D", "16"], " ", 
        SuperscriptBox["p", "2"], " ", "Y0"}], "+", 
       RowBox[{"2.`", " ", 
        SuperscriptBox["D", "17"], " ", 
        SuperscriptBox["p", "2"], " ", "Y0"}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "18"], " ", 
        SuperscriptBox["p", "2"], " ", "Y0"}], "+", 
       RowBox[{"2.220446049250314`*^-16", " ", 
        SuperscriptBox["D", "2"], " ", "Y1"}], "+", 
       RowBox[{"4.440892098500628`*^-16", " ", 
        SuperscriptBox["D", "3"], " ", "Y1"}], "+", 
       RowBox[{"1.0000000000000022`", " ", 
        SuperscriptBox["D", "4"], " ", "Y1"}], "+", 
       RowBox[{"2.0000000000000036`", " ", 
        SuperscriptBox["D", "5"], " ", "Y1"}], "+", 
       RowBox[{"10.000000000000007`", " ", 
        SuperscriptBox["D", "6"], " ", "Y1"}], "+", 
       RowBox[{"15.000000000000007`", " ", 
        SuperscriptBox["D", "7"], " ", "Y1"}], "+", 
       RowBox[{"36.00000000000001`", " ", 
        SuperscriptBox["D", "8"], " ", "Y1"}], "+", 
       RowBox[{"41.`", " ", 
        SuperscriptBox["D", "9"], " ", "Y1"}], "+", 
       RowBox[{"60.`", " ", 
        SuperscriptBox["D", "10"], " ", "Y1"}], "+", 
       RowBox[{"51.`", " ", 
        SuperscriptBox["D", "11"], " ", "Y1"}], "+", 
       RowBox[{"50.`", " ", 
        SuperscriptBox["D", "12"], " ", "Y1"}], "+", 
       RowBox[{"31.`", " ", 
        SuperscriptBox["D", "13"], " ", "Y1"}], "+", 
       RowBox[{"20.`", " ", 
        SuperscriptBox["D", "14"], " ", "Y1"}], "+", 
       RowBox[{"9.`", " ", 
        SuperscriptBox["D", "15"], " ", "Y1"}], "+", 
       RowBox[{"3.`", " ", 
        SuperscriptBox["D", "16"], " ", "Y1"}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "17"], " ", "Y1"}], "-", 
       RowBox[{"4.440892098500628`*^-16", " ", 
        SuperscriptBox["D", "2"], " ", "p", " ", "Y1"}], "-", 
       RowBox[{"8.881784197001256`*^-16", " ", 
        SuperscriptBox["D", "3"], " ", "p", " ", "Y1"}], "-", 
       RowBox[{"2.0000000000000044`", " ", 
        SuperscriptBox["D", "4"], " ", "p", " ", "Y1"}], "-", 
       RowBox[{"4.000000000000007`", " ", 
        SuperscriptBox["D", "5"], " ", "p", " ", "Y1"}], "-", 
       RowBox[{"20.000000000000014`", " ", 
        SuperscriptBox["D", "6"], " ", "p", " ", "Y1"}], "-", 
       RowBox[{"30.000000000000014`", " ", 
        SuperscriptBox["D", "7"], " ", "p", " ", "Y1"}], "-", 
       RowBox[{"72.00000000000001`", " ", 
        SuperscriptBox["D", "8"], " ", "p", " ", "Y1"}], "-", 
       RowBox[{"82.`", " ", 
        SuperscriptBox["D", "9"], " ", "p", " ", "Y1"}], "-", 
       RowBox[{"120.`", " ", 
        SuperscriptBox["D", "10"], " ", "p", " ", "Y1"}], "-", 
       RowBox[{"102.`", " ", 
        SuperscriptBox["D", "11"], " ", "p", " ", "Y1"}], "-", 
       RowBox[{"100.`", " ", 
        SuperscriptBox["D", "12"], " ", "p", " ", "Y1"}], "-", 
       RowBox[{"62.`", " ", 
        SuperscriptBox["D", "13"], " ", "p", " ", "Y1"}], "-", 
       RowBox[{"40.`", " ", 
        SuperscriptBox["D", "14"], " ", "p", " ", "Y1"}], "-", 
       RowBox[{"18.`", " ", 
        SuperscriptBox["D", "15"], " ", "p", " ", "Y1"}], "-", 
       RowBox[{"6.`", " ", 
        SuperscriptBox["D", "16"], " ", "p", " ", "Y1"}], "-", 
       RowBox[{"2.`", " ", 
        SuperscriptBox["D", "17"], " ", "p", " ", "Y1"}], "+", 
       RowBox[{"2.220446049250314`*^-16", " ", 
        SuperscriptBox["D", "2"], " ", 
        SuperscriptBox["p", "2"], " ", "Y1"}], "+", 
       RowBox[{"4.440892098500628`*^-16", " ", 
        SuperscriptBox["D", "3"], " ", 
        SuperscriptBox["p", "2"], " ", "Y1"}], "+", 
       RowBox[{"1.0000000000000022`", " ", 
        SuperscriptBox["D", "4"], " ", 
        SuperscriptBox["p", "2"], " ", "Y1"}], "+", 
       RowBox[{"2.0000000000000036`", " ", 
        SuperscriptBox["D", "5"], " ", 
        SuperscriptBox["p", "2"], " ", "Y1"}], "+", 
       RowBox[{"10.000000000000007`", " ", 
        SuperscriptBox["D", "6"], " ", 
        SuperscriptBox["p", "2"], " ", "Y1"}], "+", 
       RowBox[{"15.000000000000007`", " ", 
        SuperscriptBox["D", "7"], " ", 
        SuperscriptBox["p", "2"], " ", "Y1"}], "+", 
       RowBox[{"36.00000000000001`", " ", 
        SuperscriptBox["D", "8"], " ", 
        SuperscriptBox["p", "2"], " ", "Y1"}], "+", 
       RowBox[{"41.`", " ", 
        SuperscriptBox["D", "9"], " ", 
        SuperscriptBox["p", "2"], " ", "Y1"}], "+", 
       RowBox[{"60.`", " ", 
        SuperscriptBox["D", "10"], " ", 
        SuperscriptBox["p", "2"], " ", "Y1"}], "+", 
       RowBox[{"51.`", " ", 
        SuperscriptBox["D", "11"], " ", 
        SuperscriptBox["p", "2"], " ", "Y1"}], "+", 
       RowBox[{"50.`", " ", 
        SuperscriptBox["D", "12"], " ", 
        SuperscriptBox["p", "2"], " ", "Y1"}], "+", 
       RowBox[{"31.`", " ", 
        SuperscriptBox["D", "13"], " ", 
        SuperscriptBox["p", "2"], " ", "Y1"}], "+", 
       RowBox[{"20.`", " ", 
        SuperscriptBox["D", "14"], " ", 
        SuperscriptBox["p", "2"], " ", "Y1"}], "+", 
       RowBox[{"9.`", " ", 
        SuperscriptBox["D", "15"], " ", 
        SuperscriptBox["p", "2"], " ", "Y1"}], "+", 
       RowBox[{"3.`", " ", 
        SuperscriptBox["D", "16"], " ", 
        SuperscriptBox["p", "2"], " ", "Y1"}], "+", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "17"], " ", 
        SuperscriptBox["p", "2"], " ", "Y1"}], "-", 
       RowBox[{"1.0000000000000004`", " ", 
        SuperscriptBox["D", "5"], " ", "Y2"}], "-", 
       RowBox[{"2.000000000000001`", " ", 
        SuperscriptBox["D", "6"], " ", "Y2"}], "-", 
       RowBox[{"10.000000000000004`", " ", 
        SuperscriptBox["D", "7"], " ", "Y2"}], "-", 
       RowBox[{"15.000000000000002`", " ", 
        SuperscriptBox["D", "8"], " ", "Y2"}], "-", 
       RowBox[{"36.`", " ", 
        SuperscriptBox["D", "9"], " ", "Y2"}], "-", 
       RowBox[{"41.`", " ", 
        SuperscriptBox["D", "10"], " ", "Y2"}], "-", 
       RowBox[{"60.`", " ", 
        SuperscriptBox["D", "11"], " ", "Y2"}], "-", 
       RowBox[{"51.`", " ", 
        SuperscriptBox["D", "12"], " ", "Y2"}], "-", 
       RowBox[{"50.`", " ", 
        SuperscriptBox["D", "13"], " ", "Y2"}], "-", 
       RowBox[{"31.`", " ", 
        SuperscriptBox["D", "14"], " ", "Y2"}], "-", 
       RowBox[{"20.`", " ", 
        SuperscriptBox["D", "15"], " ", "Y2"}], "-", 
       RowBox[{"9.`", " ", 
        SuperscriptBox["D", "16"], " ", "Y2"}], "-", 
       RowBox[{"3.`", " ", 
        SuperscriptBox["D", "17"], " ", "Y2"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "18"], " ", "Y2"}], "+", 
       RowBox[{"2.000000000000001`", " ", 
        SuperscriptBox["D", "5"], " ", "p", " ", "Y2"}], "+", 
       RowBox[{"4.000000000000002`", " ", 
        SuperscriptBox["D", "6"], " ", "p", " ", "Y2"}], "+", 
       RowBox[{"20.000000000000007`", " ", 
        SuperscriptBox["D", "7"], " ", "p", " ", "Y2"}], "+", 
       RowBox[{"30.000000000000004`", " ", 
        SuperscriptBox["D", "8"], " ", "p", " ", "Y2"}], "+", 
       RowBox[{"72.`", " ", 
        SuperscriptBox["D", "9"], " ", "p", " ", "Y2"}], "+", 
       RowBox[{"82.`", " ", 
        SuperscriptBox["D", "10"], " ", "p", " ", "Y2"}], "+", 
       RowBox[{"120.`", " ", 
        SuperscriptBox["D", "11"], " ", "p", " ", "Y2"}], "+", 
       RowBox[{"102.`", " ", 
        SuperscriptBox["D", "12"], " ", "p", " ", "Y2"}], "+", 
       RowBox[{"100.`", " ", 
        SuperscriptBox["D", "13"], " ", "p", " ", "Y2"}], "+", 
       RowBox[{"62.`", " ", 
        SuperscriptBox["D", "14"], " ", "p", " ", "Y2"}], "+", 
       RowBox[{"40.`", " ", 
        SuperscriptBox["D", "15"], " ", "p", " ", "Y2"}], "+", 
       RowBox[{"18.`", " ", 
        SuperscriptBox["D", "16"], " ", "p", " ", "Y2"}], "+", 
       RowBox[{"6.`", " ", 
        SuperscriptBox["D", "17"], " ", "p", " ", "Y2"}], "+", 
       RowBox[{"2.`", " ", 
        SuperscriptBox["D", "18"], " ", "p", " ", "Y2"}], "-", 
       RowBox[{"1.0000000000000004`", " ", 
        SuperscriptBox["D", "5"], " ", 
        SuperscriptBox["p", "2"], " ", "Y2"}], "-", 
       RowBox[{"2.000000000000001`", " ", 
        SuperscriptBox["D", "6"], " ", 
        SuperscriptBox["p", "2"], " ", "Y2"}], "-", 
       RowBox[{"10.000000000000004`", " ", 
        SuperscriptBox["D", "7"], " ", 
        SuperscriptBox["p", "2"], " ", "Y2"}], "-", 
       RowBox[{"15.000000000000002`", " ", 
        SuperscriptBox["D", "8"], " ", 
        SuperscriptBox["p", "2"], " ", "Y2"}], "-", 
       RowBox[{"36.`", " ", 
        SuperscriptBox["D", "9"], " ", 
        SuperscriptBox["p", "2"], " ", "Y2"}], "-", 
       RowBox[{"41.`", " ", 
        SuperscriptBox["D", "10"], " ", 
        SuperscriptBox["p", "2"], " ", "Y2"}], "-", 
       RowBox[{"60.`", " ", 
        SuperscriptBox["D", "11"], " ", 
        SuperscriptBox["p", "2"], " ", "Y2"}], "-", 
       RowBox[{"51.`", " ", 
        SuperscriptBox["D", "12"], " ", 
        SuperscriptBox["p", "2"], " ", "Y2"}], "-", 
       RowBox[{"50.`", " ", 
        SuperscriptBox["D", "13"], " ", 
        SuperscriptBox["p", "2"], " ", "Y2"}], "-", 
       RowBox[{"31.`", " ", 
        SuperscriptBox["D", "14"], " ", 
        SuperscriptBox["p", "2"], " ", "Y2"}], "-", 
       RowBox[{"20.`", " ", 
        SuperscriptBox["D", "15"], " ", 
        SuperscriptBox["p", "2"], " ", "Y2"}], "-", 
       RowBox[{"9.`", " ", 
        SuperscriptBox["D", "16"], " ", 
        SuperscriptBox["p", "2"], " ", "Y2"}], "-", 
       RowBox[{"3.`", " ", 
        SuperscriptBox["D", "17"], " ", 
        SuperscriptBox["p", "2"], " ", "Y2"}], "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox["D", "18"], " ", 
        SuperscriptBox["p", "2"], " ", "Y2"}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["D", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1.0000000000000009`"}], "-", 
         RowBox[{"2.0000000000000013`", " ", "D"}], "-", 
         RowBox[{"15.00000000000001`", " ", 
          SuperscriptBox["D", "2"]}], "-", 
         RowBox[{"24.000000000000007`", " ", 
          SuperscriptBox["D", "3"]}], "-", 
         RowBox[{"89.00000000000003`", " ", 
          SuperscriptBox["D", "4"]}], "-", 
         RowBox[{"116.00000000000003`", " ", 
          SuperscriptBox["D", "5"]}], "-", 
         RowBox[{"271.00000000000006`", " ", 
          SuperscriptBox["D", "6"]}], "-", 
         RowBox[{"292.`", " ", 
          SuperscriptBox["D", "7"]}], "-", 
         RowBox[{"459.`", " ", 
          SuperscriptBox["D", "8"]}], "-", 
         RowBox[{"416.`", " ", 
          SuperscriptBox["D", "9"]}], "-", 
         RowBox[{"444.`", " ", 
          SuperscriptBox["D", "10"]}], "-", 
         RowBox[{"344.`", " ", 
          SuperscriptBox["D", "11"]}], "-", 
         RowBox[{"250.`", " ", 
          SuperscriptBox["D", "12"]}], "-", 
         RowBox[{"162.`", " ", 
          SuperscriptBox["D", "13"]}], "-", 
         RowBox[{"81.`", " ", 
          SuperscriptBox["D", "14"]}], "-", 
         RowBox[{"40.`", " ", 
          SuperscriptBox["D", "15"]}], "-", 
         RowBox[{"14.`", " ", 
          SuperscriptBox["D", "16"]}], "-", 
         RowBox[{"4.`", " ", 
          SuperscriptBox["D", "17"]}], "-", 
         RowBox[{"1.`", " ", 
          SuperscriptBox["D", "18"]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], ")"}]}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.528386327747105*^9, 3.528386486929785*^9, 3.528386560827115*^9, 
   3.5283866852529335`*^9, {3.528386735656622*^9, 3.528386777199495*^9}, 
   3.528386819569169*^9, 3.5283870510817986`*^9, 3.5283871016102877`*^9, 
   3.5283871809052267`*^9, 3.528387291854312*^9, 3.5283873948456926`*^9, 
   3.5283874878005185`*^9, {3.5283875533444753`*^9, 3.528387571440507*^9}, 
   3.528387626664604*^9, {3.5283883586576433`*^9, 3.5283883681736603`*^9}, 
   3.5283885376835575`*^9, 3.528388595481659*^9, 3.528388674932599*^9, 
   3.528809066041321*^9, 3.528809131062235*^9, 3.528809226986803*^9, {
   3.5288093702886553`*^9, 3.5288093894298887`*^9}, 3.5288140101522284`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"0", "\[Rule]", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"B", " ", 
         SuperscriptBox["D", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "1.0000000000000002`"}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
           RowBox[{"2.0000000000000004`", " ", "D", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
           RowBox[{"12.`", " ", 
            SuperscriptBox["D", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
           RowBox[{"20.`", " ", 
            SuperscriptBox["D", "3"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
           RowBox[{"59.`", " ", 
            SuperscriptBox["D", "4"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
           RowBox[{"83.`", " ", 
            SuperscriptBox["D", "5"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
           RowBox[{"157.`", " ", 
            SuperscriptBox["D", "6"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
           RowBox[{"183.99999999999997`", " ", 
            SuperscriptBox["D", "7"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
           RowBox[{"233.99999999999997`", " ", 
            SuperscriptBox["D", "9"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
           RowBox[{"231.`", " ", 
            SuperscriptBox["D", "10"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
           RowBox[{"172.`", " ", 
            SuperscriptBox["D", "11"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
           RowBox[{"124.`", " ", 
            SuperscriptBox["D", "12"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
           RowBox[{"70.`", " ", 
            SuperscriptBox["D", "13"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
           RowBox[{"35.`", " ", 
            SuperscriptBox["D", "14"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
           RowBox[{"14.`", " ", 
            SuperscriptBox["D", "15"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
           RowBox[{"4.`", " ", 
            SuperscriptBox["D", "16"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "17"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
           RowBox[{"246.99999999999997`", " ", 
            SuperscriptBox["D", "8"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.0000000002328306`"}], "+", "p"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "0.9999999997671694`"}], "+", "p"}], ")"}]}]}], 
          ")"}]}], "+", 
        RowBox[{"B", " ", 
         SuperscriptBox["D", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "246.99999999999997`"}], " ", 
            SuperscriptBox["D", "8"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.0000000002328306`"}], "+", "p"}], ")"}]}], "-", 
           
           RowBox[{"2.0000000000000004`", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", "p"}], ")"}]}], "-", 
           RowBox[{"4.000000000000001`", " ", "D", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", "p"}], ")"}]}], "-", 
           RowBox[{"24.`", " ", 
            SuperscriptBox["D", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", "p"}], ")"}]}], "-", 
           RowBox[{"40.`", " ", 
            SuperscriptBox["D", "3"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", "p"}], ")"}]}], "-", 
           RowBox[{"118.`", " ", 
            SuperscriptBox["D", "4"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", "p"}], ")"}]}], "-", 
           RowBox[{"166.`", " ", 
            SuperscriptBox["D", "5"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", "p"}], ")"}]}], "-", 
           RowBox[{"314.`", " ", 
            SuperscriptBox["D", "6"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", "p"}], ")"}]}], "-", 
           RowBox[{"367.99999999999994`", " ", 
            SuperscriptBox["D", "7"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", "p"}], ")"}]}], "-", 
           RowBox[{"467.99999999999994`", " ", 
            SuperscriptBox["D", "9"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", "p"}], ")"}]}], "-", 
           RowBox[{"462.`", " ", 
            SuperscriptBox["D", "10"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", "p"}], ")"}]}], "-", 
           RowBox[{"344.`", " ", 
            SuperscriptBox["D", "11"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", "p"}], ")"}]}], "-", 
           RowBox[{"248.`", " ", 
            SuperscriptBox["D", "12"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", "p"}], ")"}]}], "-", 
           RowBox[{"140.`", " ", 
            SuperscriptBox["D", "13"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", "p"}], ")"}]}], "-", 
           RowBox[{"70.`", " ", 
            SuperscriptBox["D", "14"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", "p"}], ")"}]}], "-", 
           RowBox[{"28.`", " ", 
            SuperscriptBox["D", "15"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", "p"}], ")"}]}], "-", 
           RowBox[{"8.`", " ", 
            SuperscriptBox["D", "16"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", "p"}], ")"}]}], "-", 
           RowBox[{"2.`", " ", 
            SuperscriptBox["D", "17"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", "p"}], ")"}]}], "-", 
           RowBox[{"246.99999999999997`", " ", 
            SuperscriptBox["D", "8"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "0.9999999997671694`"}], "+", "p"}], ")"}]}]}], 
          ")"}], " ", "p"}], "+", 
        RowBox[{"A", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "20"]}], "+", 
           RowBox[{"1.0000000000000009`", " ", "D", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.0000000000000002`"}], "+", "p"}], ")"}]}], "+", 
           
           RowBox[{"1.0000000000000009`", " ", "D", " ", 
            RowBox[{"(", 
             RowBox[{"4.440892098500621`*^-16", "+", "p"}], ")"}]}], "+", 
           RowBox[{"2.000000000000001`", " ", 
            SuperscriptBox["D", "3"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.2282143799313479`"}], "+", "p"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"0.38063487829158216`", "\[InvisibleSpace]", "+", "p"}], 
             ")"}]}], "+", 
           RowBox[{"2.000000000000001`", " ", 
            SuperscriptBox["D", "3"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.2282143799313479`"}], "+", "p"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"5.3475795016397685`", "\[InvisibleSpace]", "+", "p"}], 
             ")"}]}], "+", 
           RowBox[{"2.000000000000001`", " ", 
            SuperscriptBox["D", "3"], " ", 
            RowBox[{"(", 
             RowBox[{"0.38063487829158216`", "\[InvisibleSpace]", "+", "p"}], 
             ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"5.3475795016397685`", "\[InvisibleSpace]", "+", "p"}], 
             ")"}]}], "+", 
           RowBox[{"14.`", " ", 
            SuperscriptBox["D", "17"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.6705912051528342`"}], "+", "p"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "0.3294087948471658`"}], "+", 
              RowBox[{"2", " ", "p"}]}], ")"}]}], "+", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "19"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.7521717788841866`"}], "+", "p"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "0.24782822111581346`"}], "+", 
              RowBox[{"2", " ", "p"}]}], ")"}]}], "+", 
           RowBox[{"70.`", " ", 
            SuperscriptBox["D", "15"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.608254594248561`"}], "+", "p"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "0.23460254860858154`"}], "+", 
              RowBox[{"2", " ", "p"}]}], ")"}]}], "+", 
           RowBox[{"4.`", " ", 
            SuperscriptBox["D", "18"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.778884943462523`"}], "+", "p"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "0.22111505653747707`"}], "+", 
              RowBox[{"2", " ", "p"}]}], ")"}]}], "+", 
           RowBox[{"35.`", " ", 
            SuperscriptBox["D", "16"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.6873433762451922`"}], "+", "p"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "0.1697994808976648`"}], "+", 
              RowBox[{"2", " ", "p"}]}], ")"}]}], "+", 
           RowBox[{"124.`", " ", 
            SuperscriptBox["D", "14"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.651397426156074`"}], "+", "p"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "0.042150960940700206`"}], "+", 
              RowBox[{"2", " ", "p"}]}], ")"}]}], "+", 
           RowBox[{"172.`", " ", 
            SuperscriptBox["D", "13"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.5579418114556545`"}], "+", "p"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"0.011430183548677574`", "\[InvisibleSpace]", "+", 
              RowBox[{"2", " ", "p"}]}], ")"}]}], "+", 
           RowBox[{"231.`", " ", 
            SuperscriptBox["D", "12"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.6626486378800693`"}], "+", "p"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"0.1518261270575585`", "\[InvisibleSpace]", "+", 
              RowBox[{"2", " ", "p"}]}], ")"}]}], "+", 
           RowBox[{"247.`", " ", 
            SuperscriptBox["D", "10"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.7217937361484323`"}], "+", "p"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"0.4060042624642217`", "\[InvisibleSpace]", "+", 
              RowBox[{"2", " ", "p"}]}], ")"}]}], "+", 
           RowBox[{"234.`", " ", 
            SuperscriptBox["D", "11"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.5115647271928403`"}], "+", "p"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"0.4090006246287377`", "\[InvisibleSpace]", "+", 
              RowBox[{"2", " ", "p"}]}], ")"}]}], "+", 
           RowBox[{"157.`", " ", 
            SuperscriptBox["D", "8"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.8335234927038357`"}], "+", "p"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"0.693396104168804`", "\[InvisibleSpace]", "+", 
              RowBox[{"2", " ", "p"}]}], ")"}]}], "+", 
           RowBox[{"184.`", " ", 
            SuperscriptBox["D", "9"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.4656233676977384`"}], "+", "p"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"0.9601885850890428`", "\[InvisibleSpace]", "+", 
              RowBox[{"2", " ", "p"}]}], ")"}]}], "+", 
           RowBox[{"59.000000000000014`", " ", 
            SuperscriptBox["D", "6"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "2.0040883169427137`"}], "+", "p"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"0.9701900118579678`", "\[InvisibleSpace]", "+", 
              RowBox[{"2", " ", "p"}]}], ")"}]}], "+", 
           RowBox[{"12.000000000000004`", " ", 
            SuperscriptBox["D", "4"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "2.269472161323937`"}], "+", "p"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"1.2694721613239368`", "\[InvisibleSpace]", "+", 
              RowBox[{"2", " ", "p"}]}], ")"}]}], "+", 
           RowBox[{"83.`", " ", 
            SuperscriptBox["D", "7"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.4164081034297373`"}], "+", "p"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"1.6814683443935934`", "\[InvisibleSpace]", "+", 
              RowBox[{"2", " ", "p"}]}], ")"}]}], "+", 
           RowBox[{"1.0000000000000004`", " ", 
            SuperscriptBox["D", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "2.793733799276503`"}], "+", "p"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"1.793733799276503`", "\[InvisibleSpace]", "+", 
              RowBox[{"2", " ", "p"}]}], ")"}]}], "+", 
           RowBox[{"20.000000000000007`", " ", 
            SuperscriptBox["D", "5"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1.3469599999065403`"}], "+", "p"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"2.796959999906541`", "\[InvisibleSpace]", "+", 
              RowBox[{"2", " ", "p"}]}], ")"}]}], "+", 
           RowBox[{"14.`", " ", 
            SuperscriptBox["D", "17"], " ", 
            RowBox[{"(", 
             RowBox[{"3.163978278714045`", "\[InvisibleSpace]", "-", 
              RowBox[{"0.3294087948471658`", " ", "p"}], "+", 
              SuperscriptBox["p", "2"]}], ")"}]}], "+", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["D", "19"], " ", 
            RowBox[{"(", 
             RowBox[{"4.565762384949801`", "\[InvisibleSpace]", "-", 
              RowBox[{"0.24782822111581346`", " ", "p"}], "+", 
              SuperscriptBox["p", "2"]}], ")"}]}], "+", 
           RowBox[{"70.`", " ", 
            SuperscriptBox["D", "15"], " ", 
            RowBox[{"(", 
             RowBox[{"2.522699373377828`", "\[InvisibleSpace]", "-", 
              RowBox[{"0.23460254860858154`", " ", "p"}], "+", 
              SuperscriptBox["p", "2"]}], ")"}]}], "+", 
           RowBox[{"4.`", " ", 
            SuperscriptBox["D", "18"], " ", 
            RowBox[{"(", 
             RowBox[{"4.356661755152617`", "\[InvisibleSpace]", "-", 
              RowBox[{"0.22111505653747707`", " ", "p"}], "+", 
              SuperscriptBox["p", "2"]}], ")"}]}], "+", 
           RowBox[{"35.`", " ", 
            SuperscriptBox["D", "16"], " ", 
            RowBox[{"(", 
             RowBox[{"2.827775684903168`", "\[InvisibleSpace]", "-", 
              RowBox[{"0.1697994808976648`", " ", "p"}], "+", 
              SuperscriptBox["p", "2"]}], ")"}]}], "+", 
           RowBox[{"124.`", " ", 
            SuperscriptBox["D", "14"], " ", 
            RowBox[{"(", 
             RowBox[{"2.261037172882845`", "\[InvisibleSpace]", "-", 
              RowBox[{"0.042150960940700206`", " ", "p"}], "+", 
              SuperscriptBox["p", "2"]}], ")"}]}], "+", 
           RowBox[{"172.`", " ", 
            SuperscriptBox["D", "13"], " ", 
            RowBox[{"(", 
             RowBox[{"2.198040119002632`", "\[InvisibleSpace]", "+", 
              RowBox[{"0.011430183548677574`", " ", "p"}], "+", 
              SuperscriptBox["p", "2"]}], ")"}]}], "+", 
           RowBox[{"231.`", " ", 
            SuperscriptBox["D", "12"], " ", 
            RowBox[{"(", 
             RowBox[{"1.9970222479356015`", "\[InvisibleSpace]", "+", 
              RowBox[{"0.1518261270575585`", " ", "p"}], "+", 
              SuperscriptBox["p", "2"]}], ")"}]}], "+", 
           RowBox[{"247.`", " ", 
            SuperscriptBox["D", "10"], " ", 
            RowBox[{"(", 
             RowBox[{"1.9257762437337407`", "\[InvisibleSpace]", "+", 
              RowBox[{"0.4060042624642217`", " ", "p"}], "+", 
              SuperscriptBox["p", "2"]}], ")"}]}], "+", 
           RowBox[{"234.`", " ", 
            SuperscriptBox["D", "11"], " ", 
            RowBox[{"(", 
             RowBox[{"2.032760832118554`", "\[InvisibleSpace]", "+", 
              RowBox[{"0.4090006246287377`", " ", "p"}], "+", 
              SuperscriptBox["p", "2"]}], ")"}]}], "+", 
           RowBox[{"157.`", " ", 
            SuperscriptBox["D", "8"], " ", 
            RowBox[{"(", 
             RowBox[{"2.0356892569339013`", "\[InvisibleSpace]", "+", 
              RowBox[{"0.693396104168804`", " ", "p"}], "+", 
              SuperscriptBox["p", "2"]}], ")"}]}], "+", 
           RowBox[{"184.`", " ", 
            SuperscriptBox["D", "9"], " ", 
            RowBox[{"(", 
             RowBox[{"1.9616226537900865`", "\[InvisibleSpace]", "+", 
              RowBox[{"0.9601885850890428`", " ", "p"}], "+", 
              SuperscriptBox["p", "2"]}], ")"}]}], "+", 
           RowBox[{"59.000000000000014`", " ", 
            SuperscriptBox["D", "6"], " ", 
            RowBox[{"(", 
             RowBox[{"2.351126128996016`", "\[InvisibleSpace]", "+", 
              RowBox[{"0.9701900118579678`", " ", "p"}], "+", 
              SuperscriptBox["p", "2"]}], ")"}]}], "+", 
           RowBox[{"12.000000000000004`", " ", 
            SuperscriptBox["D", "4"], " ", 
            RowBox[{"(", 
             RowBox[{"3.0476983963670707`", "\[InvisibleSpace]", "+", 
              RowBox[{"1.2694721613239368`", " ", "p"}], "+", 
              SuperscriptBox["p", "2"]}], ")"}]}], "+", 
           RowBox[{"83.`", " ", 
            SuperscriptBox["D", "7"], " ", 
            RowBox[{"(", 
             RowBox[{"1.9479104489006347`", "\[InvisibleSpace]", "+", 
              RowBox[{"1.6814683443935934`", " ", "p"}], "+", 
              SuperscriptBox["p", "2"]}], ")"}]}], "+", 
           RowBox[{"1.0000000000000004`", " ", 
            SuperscriptBox["D", "2"], " ", 
            RowBox[{"(", 
             RowBox[{"5.01121474194342`", "\[InvisibleSpace]", "+", 
              RowBox[{"1.793733799276503`", " ", "p"}], "+", 
              SuperscriptBox["p", "2"]}], ")"}]}], "+", 
           RowBox[{"20.000000000000007`", " ", 
            SuperscriptBox["D", "5"], " ", 
            RowBox[{"(", 
             RowBox[{"1.9673932412127126`", "\[InvisibleSpace]", "+", 
              RowBox[{"2.796959999906541`", " ", "p"}], "+", 
              SuperscriptBox["p", "2"]}], ")"}]}]}], ")"}]}], "+", 
        RowBox[{"1.000000000000001`", " ", "D", " ", "SOLBVEXP"}], "+", 
        RowBox[{"1.000000000000001`", " ", 
         SuperscriptBox["D", "2"], " ", "SOLBVEXP"}], "+", 
        RowBox[{"14.000000000000014`", " ", 
         SuperscriptBox["D", "3"], " ", "SOLBVEXP"}], "+", 
        RowBox[{"14.000000000000012`", " ", 
         SuperscriptBox["D", "4"], " ", "SOLBVEXP"}], "+", 
        RowBox[{"82.00000000000007`", " ", 
         SuperscriptBox["D", "5"], " ", "SOLBVEXP"}], "+", 
        RowBox[{"79.00000000000006`", " ", 
         SuperscriptBox["D", "6"], " ", "SOLBVEXP"}], "+", 
        RowBox[{"257.00000000000017`", " ", 
         SuperscriptBox["D", "7"], " ", "SOLBVEXP"}], "+", 
        RowBox[{"233.00000000000009`", " ", 
         SuperscriptBox["D", "8"], " ", "SOLBVEXP"}], "+", 
        RowBox[{"468.00000000000017`", " ", 
         SuperscriptBox["D", "9"], " ", "SOLBVEXP"}], "+", 
        RowBox[{"394.0000000000001`", " ", 
         SuperscriptBox["D", "10"], " ", "SOLBVEXP"}], "+", 
        RowBox[{"517.0000000000001`", " ", 
         SuperscriptBox["D", "11"], " ", "SOLBVEXP"}], "+", 
        RowBox[{"398.0000000000001`", " ", 
         SuperscriptBox["D", "12"], " ", "SOLBVEXP"}], "+", 
        RowBox[{"359.00000000000006`", " ", 
         SuperscriptBox["D", "13"], " ", "SOLBVEXP"}], "+", 
        RowBox[{"241.00000000000003`", " ", 
         SuperscriptBox["D", "14"], " ", "SOLBVEXP"}], "+", 
        RowBox[{"155.00000000000003`", " ", 
         SuperscriptBox["D", "15"], " ", "SOLBVEXP"}], "+", 
        RowBox[{"84.00000000000001`", " ", 
         SuperscriptBox["D", "16"], " ", "SOLBVEXP"}], "+", 
        RowBox[{"38.`", " ", 
         SuperscriptBox["D", "17"], " ", "SOLBVEXP"}], "+", 
        RowBox[{"15.`", " ", 
         SuperscriptBox["D", "18"], " ", "SOLBVEXP"}], "+", 
        RowBox[{"4.`", " ", 
         SuperscriptBox["D", "19"], " ", "SOLBVEXP"}], "+", 
        RowBox[{"1.`", " ", 
         SuperscriptBox["D", "20"], " ", "SOLBVEXP"}], "-", 
        RowBox[{"2.000000000000002`", " ", "D", " ", "p", " ", "SOLBVEXP"}], 
        "-", 
        RowBox[{"2.000000000000002`", " ", 
         SuperscriptBox["D", "2"], " ", "p", " ", "SOLBVEXP"}], "-", 
        RowBox[{"28.00000000000003`", " ", 
         SuperscriptBox["D", "3"], " ", "p", " ", "SOLBVEXP"}], "-", 
        RowBox[{"28.000000000000025`", " ", 
         SuperscriptBox["D", "4"], " ", "p", " ", "SOLBVEXP"}], "-", 
        RowBox[{"164.00000000000014`", " ", 
         SuperscriptBox["D", "5"], " ", "p", " ", "SOLBVEXP"}], "-", 
        RowBox[{"158.0000000000001`", " ", 
         SuperscriptBox["D", "6"], " ", "p", " ", "SOLBVEXP"}], "-", 
        RowBox[{"514.0000000000003`", " ", 
         SuperscriptBox["D", "7"], " ", "p", " ", "SOLBVEXP"}], "-", 
        RowBox[{"466.00000000000017`", " ", 
         SuperscriptBox["D", "8"], " ", "p", " ", "SOLBVEXP"}], "-", 
        RowBox[{"936.0000000000003`", " ", 
         SuperscriptBox["D", "9"], " ", "p", " ", "SOLBVEXP"}], "-", 
        RowBox[{"788.0000000000002`", " ", 
         SuperscriptBox["D", "10"], " ", "p", " ", "SOLBVEXP"}], "-", 
        RowBox[{"1034.0000000000002`", " ", 
         SuperscriptBox["D", "11"], " ", "p", " ", "SOLBVEXP"}], "-", 
        RowBox[{"796.0000000000002`", " ", 
         SuperscriptBox["D", "12"], " ", "p", " ", "SOLBVEXP"}], "-", 
        RowBox[{"718.0000000000001`", " ", 
         SuperscriptBox["D", "13"], " ", "p", " ", "SOLBVEXP"}], "-", 
        RowBox[{"482.00000000000006`", " ", 
         SuperscriptBox["D", "14"], " ", "p", " ", "SOLBVEXP"}], "-", 
        RowBox[{"310.00000000000006`", " ", 
         SuperscriptBox["D", "15"], " ", "p", " ", "SOLBVEXP"}], "-", 
        RowBox[{"168.00000000000003`", " ", 
         SuperscriptBox["D", "16"], " ", "p", " ", "SOLBVEXP"}], "-", 
        RowBox[{"76.`", " ", 
         SuperscriptBox["D", "17"], " ", "p", " ", "SOLBVEXP"}], "-", 
        RowBox[{"30.`", " ", 
         SuperscriptBox["D", "18"], " ", "p", " ", "SOLBVEXP"}], "-", 
        RowBox[{"8.`", " ", 
         SuperscriptBox["D", "19"], " ", "p", " ", "SOLBVEXP"}], "-", 
        RowBox[{"2.`", " ", 
         SuperscriptBox["D", "20"], " ", "p", " ", "SOLBVEXP"}], "-", 
        RowBox[{"1.0000000000000007`", " ", "D", " ", "Y0"}], "-", 
        RowBox[{"1.0000000000000002`", " ", 
         SuperscriptBox["D", "2"], " ", "Y0"}], "-", 
        RowBox[{"12.000000000000007`", " ", 
         SuperscriptBox["D", "3"], " ", "Y0"}], "-", 
        RowBox[{"7.999999999999998`", " ", 
         SuperscriptBox["D", "4"], " ", "Y0"}], "-", 
        RowBox[{"53.999999999999986`", " ", 
         SuperscriptBox["D", "5"], " ", "Y0"}], "-", 
        RowBox[{"18.99999999999997`", " ", 
         SuperscriptBox["D", "6"], " ", "Y0"}], "-", 
        RowBox[{"108.99999999999994`", " ", 
         SuperscriptBox["D", "7"], " ", "Y0"}], "+", 
        RowBox[{"5.000000000000057`", " ", 
         SuperscriptBox["D", "8"], " ", "Y0"}], "-", 
        RowBox[{"71.99999999999983`", " ", 
         SuperscriptBox["D", "9"], " ", "Y0"}], "+", 
        RowBox[{"94.00000000000011`", " ", 
         SuperscriptBox["D", "10"], " ", "Y0"}], "+", 
        RowBox[{"79.00000000000011`", " ", 
         SuperscriptBox["D", "11"], " ", "Y0"}], "+", 
        RowBox[{"170.0000000000001`", " ", 
         SuperscriptBox["D", "12"], " ", "Y0"}], "+", 
        RowBox[{"165.00000000000006`", " ", 
         SuperscriptBox["D", "13"], " ", "Y0"}], "+", 
        RowBox[{"143.00000000000003`", " ", 
         SuperscriptBox["D", "14"], " ", "Y0"}], "+", 
        RowBox[{"111.00000000000003`", " ", 
         SuperscriptBox["D", "15"], " ", "Y0"}], "+", 
        RowBox[{"62.000000000000014`", " ", 
         SuperscriptBox["D", "16"], " ", "Y0"}], "+", 
        RowBox[{"34.`", " ", 
         SuperscriptBox["D", "17"], " ", "Y0"}], "+", 
        RowBox[{"13.`", " ", 
         SuperscriptBox["D", "18"], " ", "Y0"}], "+", 
        RowBox[{"4.`", " ", 
         SuperscriptBox["D", "19"], " ", "Y0"}], "+", 
        RowBox[{"1.`", " ", 
         SuperscriptBox["D", "20"], " ", "Y0"}], "+", 
        RowBox[{"2.0000000000000018`", " ", "D", " ", "p", " ", "Y0"}], "+", 
        RowBox[{"2.0000000000000013`", " ", 
         SuperscriptBox["D", "2"], " ", "p", " ", "Y0"}], "+", 
        RowBox[{"26.00000000000002`", " ", 
         SuperscriptBox["D", "3"], " ", "p", " ", "Y0"}], "+", 
        RowBox[{"22.00000000000001`", " ", 
         SuperscriptBox["D", "4"], " ", "p", " ", "Y0"}], "+", 
        RowBox[{"136.00000000000006`", " ", 
         SuperscriptBox["D", "5"], " ", "p", " ", "Y0"}], "+", 
        RowBox[{"98.00000000000003`", " ", 
         SuperscriptBox["D", "6"], " ", "p", " ", "Y0"}], "+", 
        RowBox[{"366.0000000000001`", " ", 
         SuperscriptBox["D", "7"], " ", "p", " ", "Y0"}], "+", 
        RowBox[{"228.00000000000003`", " ", 
         SuperscriptBox["D", "8"], " ", "p", " ", "Y0"}], "+", 
        RowBox[{"540.`", " ", 
         SuperscriptBox["D", "9"], " ", "p", " ", "Y0"}], "+", 
        RowBox[{"300.`", " ", 
         SuperscriptBox["D", "10"], " ", "p", " ", "Y0"}], "+", 
        RowBox[{"438.`", " ", 
         SuperscriptBox["D", "11"], " ", "p", " ", "Y0"}], "+", 
        RowBox[{"228.`", " ", 
         SuperscriptBox["D", "12"], " ", "p", " ", "Y0"}], "+", 
        RowBox[{"194.`", " ", 
         SuperscriptBox["D", "13"], " ", "p", " ", "Y0"}], "+", 
        RowBox[{"98.`", " ", 
         SuperscriptBox["D", "14"], " ", "p", " ", "Y0"}], "+", 
        RowBox[{"44.`", " ", 
         SuperscriptBox["D", "15"], " ", "p", " ", "Y0"}], "+", 
        RowBox[{"22.`", " ", 
         SuperscriptBox["D", "16"], " ", "p", " ", "Y0"}], "+", 
        RowBox[{"4.`", " ", 
         SuperscriptBox["D", "17"], " ", "p", " ", "Y0"}], "+", 
        RowBox[{"2.`", " ", 
         SuperscriptBox["D", "18"], " ", "p", " ", "Y0"}], "-", 
        RowBox[{"4.440892098500628`*^-16", " ", 
         SuperscriptBox["D", "2"], " ", "Y1"}], "-", 
        RowBox[{"8.881784197001256`*^-16", " ", 
         SuperscriptBox["D", "3"], " ", "Y1"}], "-", 
        RowBox[{"2.0000000000000044`", " ", 
         SuperscriptBox["D", "4"], " ", "Y1"}], "-", 
        RowBox[{"4.000000000000007`", " ", 
         SuperscriptBox["D", "5"], " ", "Y1"}], "-", 
        RowBox[{"20.000000000000014`", " ", 
         SuperscriptBox["D", "6"], " ", "Y1"}], "-", 
        RowBox[{"30.000000000000014`", " ", 
         SuperscriptBox["D", "7"], " ", "Y1"}], "-", 
        RowBox[{"72.00000000000001`", " ", 
         SuperscriptBox["D", "8"], " ", "Y1"}], "-", 
        RowBox[{"82.`", " ", 
         SuperscriptBox["D", "9"], " ", "Y1"}], "-", 
        RowBox[{"120.`", " ", 
         SuperscriptBox["D", "10"], " ", "Y1"}], "-", 
        RowBox[{"102.`", " ", 
         SuperscriptBox["D", "11"], " ", "Y1"}], "-", 
        RowBox[{"100.`", " ", 
         SuperscriptBox["D", "12"], " ", "Y1"}], "-", 
        RowBox[{"62.`", " ", 
         SuperscriptBox["D", "13"], " ", "Y1"}], "-", 
        RowBox[{"40.`", " ", 
         SuperscriptBox["D", "14"], " ", "Y1"}], "-", 
        RowBox[{"18.`", " ", 
         SuperscriptBox["D", "15"], " ", "Y1"}], "-", 
        RowBox[{"6.`", " ", 
         SuperscriptBox["D", "16"], " ", "Y1"}], "-", 
        RowBox[{"2.`", " ", 
         SuperscriptBox["D", "17"], " ", "Y1"}], "+", 
        RowBox[{"4.440892098500628`*^-16", " ", 
         SuperscriptBox["D", "2"], " ", "p", " ", "Y1"}], "+", 
        RowBox[{"8.881784197001256`*^-16", " ", 
         SuperscriptBox["D", "3"], " ", "p", " ", "Y1"}], "+", 
        RowBox[{"2.0000000000000044`", " ", 
         SuperscriptBox["D", "4"], " ", "p", " ", "Y1"}], "+", 
        RowBox[{"4.000000000000007`", " ", 
         SuperscriptBox["D", "5"], " ", "p", " ", "Y1"}], "+", 
        RowBox[{"20.000000000000014`", " ", 
         SuperscriptBox["D", "6"], " ", "p", " ", "Y1"}], "+", 
        RowBox[{"30.000000000000014`", " ", 
         SuperscriptBox["D", "7"], " ", "p", " ", "Y1"}], "+", 
        RowBox[{"72.00000000000001`", " ", 
         SuperscriptBox["D", "8"], " ", "p", " ", "Y1"}], "+", 
        RowBox[{"82.`", " ", 
         SuperscriptBox["D", "9"], " ", "p", " ", "Y1"}], "+", 
        RowBox[{"120.`", " ", 
         SuperscriptBox["D", "10"], " ", "p", " ", "Y1"}], "+", 
        RowBox[{"102.`", " ", 
         SuperscriptBox["D", "11"], " ", "p", " ", "Y1"}], "+", 
        RowBox[{"100.`", " ", 
         SuperscriptBox["D", "12"], " ", "p", " ", "Y1"}], "+", 
        RowBox[{"62.`", " ", 
         SuperscriptBox["D", "13"], " ", "p", " ", "Y1"}], "+", 
        RowBox[{"40.`", " ", 
         SuperscriptBox["D", "14"], " ", "p", " ", "Y1"}], "+", 
        RowBox[{"18.`", " ", 
         SuperscriptBox["D", "15"], " ", "p", " ", "Y1"}], "+", 
        RowBox[{"6.`", " ", 
         SuperscriptBox["D", "16"], " ", "p", " ", "Y1"}], "+", 
        RowBox[{"2.`", " ", 
         SuperscriptBox["D", "17"], " ", "p", " ", "Y1"}], "+", 
        RowBox[{"2.000000000000001`", " ", 
         SuperscriptBox["D", "5"], " ", "Y2"}], "+", 
        RowBox[{"4.000000000000002`", " ", 
         SuperscriptBox["D", "6"], " ", "Y2"}], "+", 
        RowBox[{"20.000000000000007`", " ", 
         SuperscriptBox["D", "7"], " ", "Y2"}], "+", 
        RowBox[{"30.000000000000004`", " ", 
         SuperscriptBox["D", "8"], " ", "Y2"}], "+", 
        RowBox[{"72.`", " ", 
         SuperscriptBox["D", "9"], " ", "Y2"}], "+", 
        RowBox[{"82.`", " ", 
         SuperscriptBox["D", "10"], " ", "Y2"}], "+", 
        RowBox[{"120.`", " ", 
         SuperscriptBox["D", "11"], " ", "Y2"}], "+", 
        RowBox[{"102.`", " ", 
         SuperscriptBox["D", "12"], " ", "Y2"}], "+", 
        RowBox[{"100.`", " ", 
         SuperscriptBox["D", "13"], " ", "Y2"}], "+", 
        RowBox[{"62.`", " ", 
         SuperscriptBox["D", "14"], " ", "Y2"}], "+", 
        RowBox[{"40.`", " ", 
         SuperscriptBox["D", "15"], " ", "Y2"}], "+", 
        RowBox[{"18.`", " ", 
         SuperscriptBox["D", "16"], " ", "Y2"}], "+", 
        RowBox[{"6.`", " ", 
         SuperscriptBox["D", "17"], " ", "Y2"}], "+", 
        RowBox[{"2.`", " ", 
         SuperscriptBox["D", "18"], " ", "Y2"}], "-", 
        RowBox[{"2.000000000000001`", " ", 
         SuperscriptBox["D", "5"], " ", "p", " ", "Y2"}], "-", 
        RowBox[{"4.000000000000002`", " ", 
         SuperscriptBox["D", "6"], " ", "p", " ", "Y2"}], "-", 
        RowBox[{"20.000000000000007`", " ", 
         SuperscriptBox["D", "7"], " ", "p", " ", "Y2"}], "-", 
        RowBox[{"30.000000000000004`", " ", 
         SuperscriptBox["D", "8"], " ", "p", " ", "Y2"}], "-", 
        RowBox[{"72.`", " ", 
         SuperscriptBox["D", "9"], " ", "p", " ", "Y2"}], "-", 
        RowBox[{"82.`", " ", 
         SuperscriptBox["D", "10"], " ", "p", " ", "Y2"}], "-", 
        RowBox[{"120.`", " ", 
         SuperscriptBox["D", "11"], " ", "p", " ", "Y2"}], "-", 
        RowBox[{"102.`", " ", 
         SuperscriptBox["D", "12"], " ", "p", " ", "Y2"}], "-", 
        RowBox[{"100.`", " ", 
         SuperscriptBox["D", "13"], " ", "p", " ", "Y2"}], "-", 
        RowBox[{"62.`", " ", 
         SuperscriptBox["D", "14"], " ", "p", " ", "Y2"}], "-", 
        RowBox[{"40.`", " ", 
         SuperscriptBox["D", "15"], " ", "p", " ", "Y2"}], "-", 
        RowBox[{"18.`", " ", 
         SuperscriptBox["D", "16"], " ", "p", " ", "Y2"}], "-", 
        RowBox[{"6.`", " ", 
         SuperscriptBox["D", "17"], " ", "p", " ", "Y2"}], "-", 
        RowBox[{"2.`", " ", 
         SuperscriptBox["D", "18"], " ", "p", " ", "Y2"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["D", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1.0000000000000009`"}], "-", 
          RowBox[{"2.0000000000000013`", " ", "D"}], "-", 
          RowBox[{"15.00000000000001`", " ", 
           SuperscriptBox["D", "2"]}], "-", 
          RowBox[{"24.000000000000007`", " ", 
           SuperscriptBox["D", "3"]}], "-", 
          RowBox[{"89.00000000000003`", " ", 
           SuperscriptBox["D", "4"]}], "-", 
          RowBox[{"116.00000000000003`", " ", 
           SuperscriptBox["D", "5"]}], "-", 
          RowBox[{"271.00000000000006`", " ", 
           SuperscriptBox["D", "6"]}], "-", 
          RowBox[{"292.`", " ", 
           SuperscriptBox["D", "7"]}], "-", 
          RowBox[{"459.`", " ", 
           SuperscriptBox["D", "8"]}], "-", 
          RowBox[{"416.`", " ", 
           SuperscriptBox["D", "9"]}], "-", 
          RowBox[{"444.`", " ", 
           SuperscriptBox["D", "10"]}], "-", 
          RowBox[{"344.`", " ", 
           SuperscriptBox["D", "11"]}], "-", 
          RowBox[{"250.`", " ", 
           SuperscriptBox["D", "12"]}], "-", 
          RowBox[{"162.`", " ", 
           SuperscriptBox["D", "13"]}], "-", 
          RowBox[{"81.`", " ", 
           SuperscriptBox["D", "14"]}], "-", 
          RowBox[{"40.`", " ", 
           SuperscriptBox["D", "15"]}], "-", 
          RowBox[{"14.`", " ", 
           SuperscriptBox["D", "16"]}], "-", 
          RowBox[{"4.`", " ", 
           SuperscriptBox["D", "17"]}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "18"]}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], ")"}]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"B", " ", 
           SuperscriptBox["D", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "1.0000000000000002`"}], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
             RowBox[{"2.0000000000000004`", " ", "D", " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
             RowBox[{"12.`", " ", 
              SuperscriptBox["D", "2"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
             RowBox[{"20.`", " ", 
              SuperscriptBox["D", "3"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
             RowBox[{"59.`", " ", 
              SuperscriptBox["D", "4"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
             RowBox[{"83.`", " ", 
              SuperscriptBox["D", "5"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
             RowBox[{"157.`", " ", 
              SuperscriptBox["D", "6"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
             RowBox[{"183.99999999999997`", " ", 
              SuperscriptBox["D", "7"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
             RowBox[{"233.99999999999997`", " ", 
              SuperscriptBox["D", "9"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
             RowBox[{"231.`", " ", 
              SuperscriptBox["D", "10"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
             RowBox[{"172.`", " ", 
              SuperscriptBox["D", "11"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
             RowBox[{"124.`", " ", 
              SuperscriptBox["D", "12"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
             RowBox[{"70.`", " ", 
              SuperscriptBox["D", "13"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
             RowBox[{"35.`", " ", 
              SuperscriptBox["D", "14"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
             RowBox[{"14.`", " ", 
              SuperscriptBox["D", "15"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
             RowBox[{"4.`", " ", 
              SuperscriptBox["D", "16"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "17"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "2"]}], "-", 
             RowBox[{"246.99999999999997`", " ", 
              SuperscriptBox["D", "8"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1.0000000002328306`"}], "+", "p"}], ")"}], " ", 
              
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "0.9999999997671694`"}], "+", "p"}], ")"}]}]}], 
            ")"}], " ", "p"}], "+", 
          RowBox[{"A", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1.0000000000000013`"}], "+", 
             RowBox[{"1.0000000000000009`", " ", "D", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1.0000000000000002`"}], "+", "p"}], ")"}], " ", 
              
              RowBox[{"(", 
               RowBox[{"4.440892098500621`*^-16", "+", "p"}], ")"}]}], "+", 
             RowBox[{"2.000000000000001`", " ", 
              SuperscriptBox["D", "3"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1.2282143799313479`"}], "+", "p"}], ")"}], " ", 
              
              RowBox[{"(", 
               RowBox[{
               "0.38063487829158216`", "\[InvisibleSpace]", "+", "p"}], ")"}],
               " ", 
              RowBox[{"(", 
               RowBox[{"5.3475795016397685`", "\[InvisibleSpace]", "+", "p"}],
                ")"}]}], "+", 
             RowBox[{
              SuperscriptBox["D", "20"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "2.`"}], "+", 
                RowBox[{"1.`", " ", "p"}]}], ")"}]}], "+", 
             RowBox[{"14.`", " ", 
              SuperscriptBox["D", "17"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1.6705912051528342`"}], "+", "p"}], ")"}], " ", 
              
              RowBox[{"(", 
               RowBox[{"3.163978278714045`", "\[InvisibleSpace]", "-", 
                RowBox[{"0.3294087948471658`", " ", "p"}], "+", 
                SuperscriptBox["p", "2"]}], ")"}]}], "+", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["D", "19"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1.7521717788841866`"}], "+", "p"}], ")"}], " ", 
              
              RowBox[{"(", 
               RowBox[{"4.565762384949801`", "\[InvisibleSpace]", "-", 
                RowBox[{"0.24782822111581346`", " ", "p"}], "+", 
                SuperscriptBox["p", "2"]}], ")"}]}], "+", 
             RowBox[{"70.`", " ", 
              SuperscriptBox["D", "15"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1.608254594248561`"}], "+", "p"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{"2.522699373377828`", "\[InvisibleSpace]", "-", 
                RowBox[{"0.23460254860858154`", " ", "p"}], "+", 
                SuperscriptBox["p", "2"]}], ")"}]}], "+", 
             RowBox[{"4.`", " ", 
              SuperscriptBox["D", "18"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1.778884943462523`"}], "+", "p"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{"4.356661755152617`", "\[InvisibleSpace]", "-", 
                RowBox[{"0.22111505653747707`", " ", "p"}], "+", 
                SuperscriptBox["p", "2"]}], ")"}]}], "+", 
             RowBox[{"35.`", " ", 
              SuperscriptBox["D", "16"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1.6873433762451922`"}], "+", "p"}], ")"}], " ", 
              
              RowBox[{"(", 
               RowBox[{"2.827775684903168`", "\[InvisibleSpace]", "-", 
                RowBox[{"0.1697994808976648`", " ", "p"}], "+", 
                SuperscriptBox["p", "2"]}], ")"}]}], "+", 
             RowBox[{"124.`", " ", 
              SuperscriptBox["D", "14"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1.651397426156074`"}], "+", "p"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{"2.261037172882845`", "\[InvisibleSpace]", "-", 
                RowBox[{"0.042150960940700206`", " ", "p"}], "+", 
                SuperscriptBox["p", "2"]}], ")"}]}], "+", 
             RowBox[{"172.`", " ", 
              SuperscriptBox["D", "13"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1.5579418114556545`"}], "+", "p"}], ")"}], " ", 
              
              RowBox[{"(", 
               RowBox[{"2.198040119002632`", "\[InvisibleSpace]", "+", 
                RowBox[{"0.011430183548677574`", " ", "p"}], "+", 
                SuperscriptBox["p", "2"]}], ")"}]}], "+", 
             RowBox[{"231.`", " ", 
              SuperscriptBox["D", "12"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1.6626486378800693`"}], "+", "p"}], ")"}], " ", 
              
              RowBox[{"(", 
               RowBox[{"1.9970222479356015`", "\[InvisibleSpace]", "+", 
                RowBox[{"0.1518261270575585`", " ", "p"}], "+", 
                SuperscriptBox["p", "2"]}], ")"}]}], "+", 
             RowBox[{"247.`", " ", 
              SuperscriptBox["D", "10"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1.7217937361484323`"}], "+", "p"}], ")"}], " ", 
              
              RowBox[{"(", 
               RowBox[{"1.9257762437337407`", "\[InvisibleSpace]", "+", 
                RowBox[{"0.4060042624642217`", " ", "p"}], "+", 
                SuperscriptBox["p", "2"]}], ")"}]}], "+", 
             RowBox[{"234.`", " ", 
              SuperscriptBox["D", "11"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1.5115647271928403`"}], "+", "p"}], ")"}], " ", 
              
              RowBox[{"(", 
               RowBox[{"2.032760832118554`", "\[InvisibleSpace]", "+", 
                RowBox[{"0.4090006246287377`", " ", "p"}], "+", 
                SuperscriptBox["p", "2"]}], ")"}]}], "+", 
             RowBox[{"157.`", " ", 
              SuperscriptBox["D", "8"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1.8335234927038357`"}], "+", "p"}], ")"}], " ", 
              
              RowBox[{"(", 
               RowBox[{"2.0356892569339013`", "\[InvisibleSpace]", "+", 
                RowBox[{"0.693396104168804`", " ", "p"}], "+", 
                SuperscriptBox["p", "2"]}], ")"}]}], "+", 
             RowBox[{"184.`", " ", 
              SuperscriptBox["D", "9"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1.4656233676977384`"}], "+", "p"}], ")"}], " ", 
              
              RowBox[{"(", 
               RowBox[{"1.9616226537900865`", "\[InvisibleSpace]", "+", 
                RowBox[{"0.9601885850890428`", " ", "p"}], "+", 
                SuperscriptBox["p", "2"]}], ")"}]}], "+", 
             RowBox[{"59.000000000000014`", " ", 
              SuperscriptBox["D", "6"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "2.0040883169427137`"}], "+", "p"}], ")"}], " ", 
              
              RowBox[{"(", 
               RowBox[{"2.351126128996016`", "\[InvisibleSpace]", "+", 
                RowBox[{"0.9701900118579678`", " ", "p"}], "+", 
                SuperscriptBox["p", "2"]}], ")"}]}], "+", 
             RowBox[{"12.000000000000004`", " ", 
              SuperscriptBox["D", "4"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "2.269472161323937`"}], "+", "p"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{"3.0476983963670707`", "\[InvisibleSpace]", "+", 
                RowBox[{"1.2694721613239368`", " ", "p"}], "+", 
                SuperscriptBox["p", "2"]}], ")"}]}], "+", 
             RowBox[{"83.`", " ", 
              SuperscriptBox["D", "7"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1.4164081034297373`"}], "+", "p"}], ")"}], " ", 
              
              RowBox[{"(", 
               RowBox[{"1.9479104489006347`", "\[InvisibleSpace]", "+", 
                RowBox[{"1.6814683443935934`", " ", "p"}], "+", 
                SuperscriptBox["p", "2"]}], ")"}]}], "+", 
             RowBox[{"1.0000000000000004`", " ", 
              SuperscriptBox["D", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "2.793733799276503`"}], "+", "p"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{"5.01121474194342`", "\[InvisibleSpace]", "+", 
                RowBox[{"1.793733799276503`", " ", "p"}], "+", 
                SuperscriptBox["p", "2"]}], ")"}]}], "+", 
             RowBox[{"20.000000000000007`", " ", 
              SuperscriptBox["D", "5"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1.3469599999065403`"}], "+", "p"}], ")"}], " ", 
              
              RowBox[{"(", 
               RowBox[{"1.9673932412127126`", "\[InvisibleSpace]", "+", 
                RowBox[{"2.796959999906541`", " ", "p"}], "+", 
                SuperscriptBox["p", "2"]}], ")"}]}]}], ")"}]}], "+", 
          RowBox[{"1.000000000000001`", " ", "D", " ", "p", " ", "SOLBVEXP"}],
           "+", 
          RowBox[{"1.000000000000001`", " ", 
           SuperscriptBox["D", "2"], " ", "p", " ", "SOLBVEXP"}], "+", 
          RowBox[{"14.000000000000014`", " ", 
           SuperscriptBox["D", "3"], " ", "p", " ", "SOLBVEXP"}], "+", 
          RowBox[{"14.000000000000012`", " ", 
           SuperscriptBox["D", "4"], " ", "p", " ", "SOLBVEXP"}], "+", 
          RowBox[{"82.00000000000007`", " ", 
           SuperscriptBox["D", "5"], " ", "p", " ", "SOLBVEXP"}], "+", 
          RowBox[{"79.00000000000006`", " ", 
           SuperscriptBox["D", "6"], " ", "p", " ", "SOLBVEXP"}], "+", 
          RowBox[{"257.00000000000017`", " ", 
           SuperscriptBox["D", "7"], " ", "p", " ", "SOLBVEXP"}], "+", 
          RowBox[{"233.00000000000009`", " ", 
           SuperscriptBox["D", "8"], " ", "p", " ", "SOLBVEXP"}], "+", 
          RowBox[{"468.00000000000017`", " ", 
           SuperscriptBox["D", "9"], " ", "p", " ", "SOLBVEXP"}], "+", 
          RowBox[{"394.0000000000001`", " ", 
           SuperscriptBox["D", "10"], " ", "p", " ", "SOLBVEXP"}], "+", 
          RowBox[{"517.0000000000001`", " ", 
           SuperscriptBox["D", "11"], " ", "p", " ", "SOLBVEXP"}], "+", 
          RowBox[{"398.0000000000001`", " ", 
           SuperscriptBox["D", "12"], " ", "p", " ", "SOLBVEXP"}], "+", 
          RowBox[{"359.00000000000006`", " ", 
           SuperscriptBox["D", "13"], " ", "p", " ", "SOLBVEXP"}], "+", 
          RowBox[{"241.00000000000003`", " ", 
           SuperscriptBox["D", "14"], " ", "p", " ", "SOLBVEXP"}], "+", 
          RowBox[{"155.00000000000003`", " ", 
           SuperscriptBox["D", "15"], " ", "p", " ", "SOLBVEXP"}], "+", 
          RowBox[{"84.00000000000001`", " ", 
           SuperscriptBox["D", "16"], " ", "p", " ", "SOLBVEXP"}], "+", 
          RowBox[{"38.`", " ", 
           SuperscriptBox["D", "17"], " ", "p", " ", "SOLBVEXP"}], "+", 
          RowBox[{"15.`", " ", 
           SuperscriptBox["D", "18"], " ", "p", " ", "SOLBVEXP"}], "+", 
          RowBox[{"4.`", " ", 
           SuperscriptBox["D", "19"], " ", "p", " ", "SOLBVEXP"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "20"], " ", "p", " ", "SOLBVEXP"}], "-", 
          RowBox[{"1.000000000000001`", " ", "D", " ", 
           SuperscriptBox["p", "2"], " ", "SOLBVEXP"}], "-", 
          RowBox[{"1.000000000000001`", " ", 
           SuperscriptBox["D", "2"], " ", 
           SuperscriptBox["p", "2"], " ", "SOLBVEXP"}], "-", 
          RowBox[{"14.000000000000014`", " ", 
           SuperscriptBox["D", "3"], " ", 
           SuperscriptBox["p", "2"], " ", "SOLBVEXP"}], "-", 
          RowBox[{"14.000000000000012`", " ", 
           SuperscriptBox["D", "4"], " ", 
           SuperscriptBox["p", "2"], " ", "SOLBVEXP"}], "-", 
          RowBox[{"82.00000000000007`", " ", 
           SuperscriptBox["D", "5"], " ", 
           SuperscriptBox["p", "2"], " ", "SOLBVEXP"}], "-", 
          RowBox[{"79.00000000000006`", " ", 
           SuperscriptBox["D", "6"], " ", 
           SuperscriptBox["p", "2"], " ", "SOLBVEXP"}], "-", 
          RowBox[{"257.00000000000017`", " ", 
           SuperscriptBox["D", "7"], " ", 
           SuperscriptBox["p", "2"], " ", "SOLBVEXP"}], "-", 
          RowBox[{"233.00000000000009`", " ", 
           SuperscriptBox["D", "8"], " ", 
           SuperscriptBox["p", "2"], " ", "SOLBVEXP"}], "-", 
          RowBox[{"468.00000000000017`", " ", 
           SuperscriptBox["D", "9"], " ", 
           SuperscriptBox["p", "2"], " ", "SOLBVEXP"}], "-", 
          RowBox[{"394.0000000000001`", " ", 
           SuperscriptBox["D", "10"], " ", 
           SuperscriptBox["p", "2"], " ", "SOLBVEXP"}], "-", 
          RowBox[{"517.0000000000001`", " ", 
           SuperscriptBox["D", "11"], " ", 
           SuperscriptBox["p", "2"], " ", "SOLBVEXP"}], "-", 
          RowBox[{"398.0000000000001`", " ", 
           SuperscriptBox["D", "12"], " ", 
           SuperscriptBox["p", "2"], " ", "SOLBVEXP"}], "-", 
          RowBox[{"359.00000000000006`", " ", 
           SuperscriptBox["D", "13"], " ", 
           SuperscriptBox["p", "2"], " ", "SOLBVEXP"}], "-", 
          RowBox[{"241.00000000000003`", " ", 
           SuperscriptBox["D", "14"], " ", 
           SuperscriptBox["p", "2"], " ", "SOLBVEXP"}], "-", 
          RowBox[{"155.00000000000003`", " ", 
           SuperscriptBox["D", "15"], " ", 
           SuperscriptBox["p", "2"], " ", "SOLBVEXP"}], "-", 
          RowBox[{"84.00000000000001`", " ", 
           SuperscriptBox["D", "16"], " ", 
           SuperscriptBox["p", "2"], " ", "SOLBVEXP"}], "-", 
          RowBox[{"38.`", " ", 
           SuperscriptBox["D", "17"], " ", 
           SuperscriptBox["p", "2"], " ", "SOLBVEXP"}], "-", 
          RowBox[{"15.`", " ", 
           SuperscriptBox["D", "18"], " ", 
           SuperscriptBox["p", "2"], " ", "SOLBVEXP"}], "-", 
          RowBox[{"4.`", " ", 
           SuperscriptBox["D", "19"], " ", 
           SuperscriptBox["p", "2"], " ", "SOLBVEXP"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "20"], " ", 
           SuperscriptBox["p", "2"], " ", "SOLBVEXP"}], "-", 
          RowBox[{"1.0000000000000013`", " ", "Y"}], "-", 
          RowBox[{"2.2204460492503146`*^-16", " ", "D", " ", "Y"}], "-", 
          RowBox[{"14.000000000000018`", " ", 
           SuperscriptBox["D", "2"], " ", "Y"}], "-", 
          RowBox[{"4.000000000000007`", " ", 
           SuperscriptBox["D", "3"], " ", "Y"}], "-", 
          RowBox[{"81.00000000000009`", " ", 
           SuperscriptBox["D", "4"], " ", "Y"}], "-", 
          RowBox[{"40.00000000000005`", " ", 
           SuperscriptBox["D", "5"], " ", "Y"}], "-", 
          RowBox[{"256.0000000000002`", " ", 
           SuperscriptBox["D", "6"], " ", "Y"}], "-", 
          RowBox[{"160.00000000000014`", " ", 
           SuperscriptBox["D", "7"], " ", "Y"}], "-", 
          RowBox[{"488.0000000000003`", " ", 
           SuperscriptBox["D", "8"], " ", "Y"}], "-", 
          RowBox[{"336.0000000000002`", " ", 
           SuperscriptBox["D", "9"], " ", "Y"}], "-", 
          RowBox[{"594.0000000000002`", " ", 
           SuperscriptBox["D", "10"], " ", "Y"}], "-", 
          RowBox[{"412.00000000000017`", " ", 
           SuperscriptBox["D", "11"], " ", "Y"}], "-", 
          RowBox[{"482.00000000000017`", " ", 
           SuperscriptBox["D", "12"], " ", "Y"}], "-", 
          RowBox[{"308.0000000000001`", " ", 
           SuperscriptBox["D", "13"], " ", "Y"}], "-", 
          RowBox[{"260.00000000000006`", " ", 
           SuperscriptBox["D", "14"], " ", "Y"}], "-", 
          RowBox[{"140.00000000000003`", " ", 
           SuperscriptBox["D", "15"], " ", "Y"}], "-", 
          RowBox[{"88.00000000000001`", " ", 
           SuperscriptBox["D", "16"], " ", "Y"}], "-", 
          RowBox[{"36.`", " ", 
           SuperscriptBox["D", "17"], " ", "Y"}], "-", 
          RowBox[{"16.`", " ", 
           SuperscriptBox["D", "18"], " ", "Y"}], "-", 
          RowBox[{"4.`", " ", 
           SuperscriptBox["D", "19"], " ", "Y"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "20"], " ", "Y"}], "-", 
          RowBox[{"2.220446049250313`*^-16", " ", "D", " ", "Y0"}], "-", 
          RowBox[{"4.440892098500626`*^-16", " ", 
           SuperscriptBox["D", "2"], " ", "Y0"}], "-", 
          RowBox[{"1.0000000000000036`", " ", 
           SuperscriptBox["D", "3"], " ", "Y0"}], "-", 
          RowBox[{"3.000000000000007`", " ", 
           SuperscriptBox["D", "4"], " ", "Y0"}], "-", 
          RowBox[{"14.000000000000043`", " ", 
           SuperscriptBox["D", "5"], " ", "Y0"}], "-", 
          RowBox[{"30.000000000000043`", " ", 
           SuperscriptBox["D", "6"], " ", "Y0"}], "-", 
          RowBox[{"74.00000000000011`", " ", 
           SuperscriptBox["D", "7"], " ", "Y0"}], "-", 
          RowBox[{"119.00000000000007`", " ", 
           SuperscriptBox["D", "8"], " ", "Y0"}], "-", 
          RowBox[{"198.00000000000017`", " ", 
           SuperscriptBox["D", "9"], " ", "Y0"}], "-", 
          RowBox[{"244.0000000000001`", " ", 
           SuperscriptBox["D", "10"], " ", "Y0"}], "-", 
          RowBox[{"298.0000000000001`", " ", 
           SuperscriptBox["D", "11"], " ", "Y0"}], "-", 
          RowBox[{"284.0000000000001`", " ", 
           SuperscriptBox["D", "12"], " ", "Y0"}], "-", 
          RowBox[{"262.00000000000006`", " ", 
           SuperscriptBox["D", "13"], " ", "Y0"}], "-", 
          RowBox[{"192.00000000000003`", " ", 
           SuperscriptBox["D", "14"], " ", "Y0"}], "-", 
          RowBox[{"133.00000000000003`", " ", 
           SuperscriptBox["D", "15"], " ", "Y0"}], "-", 
          RowBox[{"73.00000000000001`", " ", 
           SuperscriptBox["D", "16"], " ", "Y0"}], "-", 
          RowBox[{"36.`", " ", 
           SuperscriptBox["D", "17"], " ", "Y0"}], "-", 
          RowBox[{"14.`", " ", 
           SuperscriptBox["D", "18"], " ", "Y0"}], "-", 
          RowBox[{"4.`", " ", 
           SuperscriptBox["D", "19"], " ", "Y0"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "20"], " ", "Y0"}], "-", 
          RowBox[{"1.0000000000000007`", " ", "D", " ", "p", " ", "Y0"}], "-", 
          RowBox[{"1.0000000000000002`", " ", 
           SuperscriptBox["D", "2"], " ", "p", " ", "Y0"}], "-", 
          RowBox[{"12.000000000000007`", " ", 
           SuperscriptBox["D", "3"], " ", "p", " ", "Y0"}], "-", 
          RowBox[{"7.999999999999998`", " ", 
           SuperscriptBox["D", "4"], " ", "p", " ", "Y0"}], "-", 
          RowBox[{"53.999999999999986`", " ", 
           SuperscriptBox["D", "5"], " ", "p", " ", "Y0"}], "-", 
          RowBox[{"18.99999999999997`", " ", 
           SuperscriptBox["D", "6"], " ", "p", " ", "Y0"}], "-", 
          RowBox[{"108.99999999999994`", " ", 
           SuperscriptBox["D", "7"], " ", "p", " ", "Y0"}], "+", 
          RowBox[{"5.000000000000057`", " ", 
           SuperscriptBox["D", "8"], " ", "p", " ", "Y0"}], "-", 
          RowBox[{"71.99999999999983`", " ", 
           SuperscriptBox["D", "9"], " ", "p", " ", "Y0"}], "+", 
          RowBox[{"94.00000000000011`", " ", 
           SuperscriptBox["D", "10"], " ", "p", " ", "Y0"}], "+", 
          RowBox[{"79.00000000000011`", " ", 
           SuperscriptBox["D", "11"], " ", "p", " ", "Y0"}], "+", 
          RowBox[{"170.0000000000001`", " ", 
           SuperscriptBox["D", "12"], " ", "p", " ", "Y0"}], "+", 
          RowBox[{"165.00000000000006`", " ", 
           SuperscriptBox["D", "13"], " ", "p", " ", "Y0"}], "+", 
          RowBox[{"143.00000000000003`", " ", 
           SuperscriptBox["D", "14"], " ", "p", " ", "Y0"}], "+", 
          RowBox[{"111.00000000000003`", " ", 
           SuperscriptBox["D", "15"], " ", "p", " ", "Y0"}], "+", 
          RowBox[{"62.000000000000014`", " ", 
           SuperscriptBox["D", "16"], " ", "p", " ", "Y0"}], "+", 
          RowBox[{"34.`", " ", 
           SuperscriptBox["D", "17"], " ", "p", " ", "Y0"}], "+", 
          RowBox[{"13.`", " ", 
           SuperscriptBox["D", "18"], " ", "p", " ", "Y0"}], "+", 
          RowBox[{"4.`", " ", 
           SuperscriptBox["D", "19"], " ", "p", " ", "Y0"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "20"], " ", "p", " ", "Y0"}], "+", 
          RowBox[{"1.0000000000000009`", " ", "D", " ", 
           SuperscriptBox["p", "2"], " ", "Y0"}], "+", 
          RowBox[{"1.0000000000000007`", " ", 
           SuperscriptBox["D", "2"], " ", 
           SuperscriptBox["p", "2"], " ", "Y0"}], "+", 
          RowBox[{"13.00000000000001`", " ", 
           SuperscriptBox["D", "3"], " ", 
           SuperscriptBox["p", "2"], " ", "Y0"}], "+", 
          RowBox[{"11.000000000000005`", " ", 
           SuperscriptBox["D", "4"], " ", 
           SuperscriptBox["p", "2"], " ", "Y0"}], "+", 
          RowBox[{"68.00000000000003`", " ", 
           SuperscriptBox["D", "5"], " ", 
           SuperscriptBox["p", "2"], " ", "Y0"}], "+", 
          RowBox[{"49.000000000000014`", " ", 
           SuperscriptBox["D", "6"], " ", 
           SuperscriptBox["p", "2"], " ", "Y0"}], "+", 
          RowBox[{"183.00000000000006`", " ", 
           SuperscriptBox["D", "7"], " ", 
           SuperscriptBox["p", "2"], " ", "Y0"}], "+", 
          RowBox[{"114.00000000000001`", " ", 
           SuperscriptBox["D", "8"], " ", 
           SuperscriptBox["p", "2"], " ", "Y0"}], "+", 
          RowBox[{"270.`", " ", 
           SuperscriptBox["D", "9"], " ", 
           SuperscriptBox["p", "2"], " ", "Y0"}], "+", 
          RowBox[{"150.`", " ", 
           SuperscriptBox["D", "10"], " ", 
           SuperscriptBox["p", "2"], " ", "Y0"}], "+", 
          RowBox[{"219.`", " ", 
           SuperscriptBox["D", "11"], " ", 
           SuperscriptBox["p", "2"], " ", "Y0"}], "+", 
          RowBox[{"114.`", " ", 
           SuperscriptBox["D", "12"], " ", 
           SuperscriptBox["p", "2"], " ", "Y0"}], "+", 
          RowBox[{"97.`", " ", 
           SuperscriptBox["D", "13"], " ", 
           SuperscriptBox["p", "2"], " ", "Y0"}], "+", 
          RowBox[{"49.`", " ", 
           SuperscriptBox["D", "14"], " ", 
           SuperscriptBox["p", "2"], " ", "Y0"}], "+", 
          RowBox[{"22.`", " ", 
           SuperscriptBox["D", "15"], " ", 
           SuperscriptBox["p", "2"], " ", "Y0"}], "+", 
          RowBox[{"11.`", " ", 
           SuperscriptBox["D", "16"], " ", 
           SuperscriptBox["p", "2"], " ", "Y0"}], "+", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "17"], " ", 
           SuperscriptBox["p", "2"], " ", "Y0"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "18"], " ", 
           SuperscriptBox["p", "2"], " ", "Y0"}], "+", 
          RowBox[{"2.220446049250314`*^-16", " ", 
           SuperscriptBox["D", "2"], " ", "Y1"}], "+", 
          RowBox[{"4.440892098500628`*^-16", " ", 
           SuperscriptBox["D", "3"], " ", "Y1"}], "+", 
          RowBox[{"1.0000000000000022`", " ", 
           SuperscriptBox["D", "4"], " ", "Y1"}], "+", 
          RowBox[{"2.0000000000000036`", " ", 
           SuperscriptBox["D", "5"], " ", "Y1"}], "+", 
          RowBox[{"10.000000000000007`", " ", 
           SuperscriptBox["D", "6"], " ", "Y1"}], "+", 
          RowBox[{"15.000000000000007`", " ", 
           SuperscriptBox["D", "7"], " ", "Y1"}], "+", 
          RowBox[{"36.00000000000001`", " ", 
           SuperscriptBox["D", "8"], " ", "Y1"}], "+", 
          RowBox[{"41.`", " ", 
           SuperscriptBox["D", "9"], " ", "Y1"}], "+", 
          RowBox[{"60.`", " ", 
           SuperscriptBox["D", "10"], " ", "Y1"}], "+", 
          RowBox[{"51.`", " ", 
           SuperscriptBox["D", "11"], " ", "Y1"}], "+", 
          RowBox[{"50.`", " ", 
           SuperscriptBox["D", "12"], " ", "Y1"}], "+", 
          RowBox[{"31.`", " ", 
           SuperscriptBox["D", "13"], " ", "Y1"}], "+", 
          RowBox[{"20.`", " ", 
           SuperscriptBox["D", "14"], " ", "Y1"}], "+", 
          RowBox[{"9.`", " ", 
           SuperscriptBox["D", "15"], " ", "Y1"}], "+", 
          RowBox[{"3.`", " ", 
           SuperscriptBox["D", "16"], " ", "Y1"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "17"], " ", "Y1"}], "-", 
          RowBox[{"4.440892098500628`*^-16", " ", 
           SuperscriptBox["D", "2"], " ", "p", " ", "Y1"}], "-", 
          RowBox[{"8.881784197001256`*^-16", " ", 
           SuperscriptBox["D", "3"], " ", "p", " ", "Y1"}], "-", 
          RowBox[{"2.0000000000000044`", " ", 
           SuperscriptBox["D", "4"], " ", "p", " ", "Y1"}], "-", 
          RowBox[{"4.000000000000007`", " ", 
           SuperscriptBox["D", "5"], " ", "p", " ", "Y1"}], "-", 
          RowBox[{"20.000000000000014`", " ", 
           SuperscriptBox["D", "6"], " ", "p", " ", "Y1"}], "-", 
          RowBox[{"30.000000000000014`", " ", 
           SuperscriptBox["D", "7"], " ", "p", " ", "Y1"}], "-", 
          RowBox[{"72.00000000000001`", " ", 
           SuperscriptBox["D", "8"], " ", "p", " ", "Y1"}], "-", 
          RowBox[{"82.`", " ", 
           SuperscriptBox["D", "9"], " ", "p", " ", "Y1"}], "-", 
          RowBox[{"120.`", " ", 
           SuperscriptBox["D", "10"], " ", "p", " ", "Y1"}], "-", 
          RowBox[{"102.`", " ", 
           SuperscriptBox["D", "11"], " ", "p", " ", "Y1"}], "-", 
          RowBox[{"100.`", " ", 
           SuperscriptBox["D", "12"], " ", "p", " ", "Y1"}], "-", 
          RowBox[{"62.`", " ", 
           SuperscriptBox["D", "13"], " ", "p", " ", "Y1"}], "-", 
          RowBox[{"40.`", " ", 
           SuperscriptBox["D", "14"], " ", "p", " ", "Y1"}], "-", 
          RowBox[{"18.`", " ", 
           SuperscriptBox["D", "15"], " ", "p", " ", "Y1"}], "-", 
          RowBox[{"6.`", " ", 
           SuperscriptBox["D", "16"], " ", "p", " ", "Y1"}], "-", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "17"], " ", "p", " ", "Y1"}], "+", 
          RowBox[{"2.220446049250314`*^-16", " ", 
           SuperscriptBox["D", "2"], " ", 
           SuperscriptBox["p", "2"], " ", "Y1"}], "+", 
          RowBox[{"4.440892098500628`*^-16", " ", 
           SuperscriptBox["D", "3"], " ", 
           SuperscriptBox["p", "2"], " ", "Y1"}], "+", 
          RowBox[{"1.0000000000000022`", " ", 
           SuperscriptBox["D", "4"], " ", 
           SuperscriptBox["p", "2"], " ", "Y1"}], "+", 
          RowBox[{"2.0000000000000036`", " ", 
           SuperscriptBox["D", "5"], " ", 
           SuperscriptBox["p", "2"], " ", "Y1"}], "+", 
          RowBox[{"10.000000000000007`", " ", 
           SuperscriptBox["D", "6"], " ", 
           SuperscriptBox["p", "2"], " ", "Y1"}], "+", 
          RowBox[{"15.000000000000007`", " ", 
           SuperscriptBox["D", "7"], " ", 
           SuperscriptBox["p", "2"], " ", "Y1"}], "+", 
          RowBox[{"36.00000000000001`", " ", 
           SuperscriptBox["D", "8"], " ", 
           SuperscriptBox["p", "2"], " ", "Y1"}], "+", 
          RowBox[{"41.`", " ", 
           SuperscriptBox["D", "9"], " ", 
           SuperscriptBox["p", "2"], " ", "Y1"}], "+", 
          RowBox[{"60.`", " ", 
           SuperscriptBox["D", "10"], " ", 
           SuperscriptBox["p", "2"], " ", "Y1"}], "+", 
          RowBox[{"51.`", " ", 
           SuperscriptBox["D", "11"], " ", 
           SuperscriptBox["p", "2"], " ", "Y1"}], "+", 
          RowBox[{"50.`", " ", 
           SuperscriptBox["D", "12"], " ", 
           SuperscriptBox["p", "2"], " ", "Y1"}], "+", 
          RowBox[{"31.`", " ", 
           SuperscriptBox["D", "13"], " ", 
           SuperscriptBox["p", "2"], " ", "Y1"}], "+", 
          RowBox[{"20.`", " ", 
           SuperscriptBox["D", "14"], " ", 
           SuperscriptBox["p", "2"], " ", "Y1"}], "+", 
          RowBox[{"9.`", " ", 
           SuperscriptBox["D", "15"], " ", 
           SuperscriptBox["p", "2"], " ", "Y1"}], "+", 
          RowBox[{"3.`", " ", 
           SuperscriptBox["D", "16"], " ", 
           SuperscriptBox["p", "2"], " ", "Y1"}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "17"], " ", 
           SuperscriptBox["p", "2"], " ", "Y1"}], "-", 
          RowBox[{"1.0000000000000004`", " ", 
           SuperscriptBox["D", "5"], " ", "Y2"}], "-", 
          RowBox[{"2.000000000000001`", " ", 
           SuperscriptBox["D", "6"], " ", "Y2"}], "-", 
          RowBox[{"10.000000000000004`", " ", 
           SuperscriptBox["D", "7"], " ", "Y2"}], "-", 
          RowBox[{"15.000000000000002`", " ", 
           SuperscriptBox["D", "8"], " ", "Y2"}], "-", 
          RowBox[{"36.`", " ", 
           SuperscriptBox["D", "9"], " ", "Y2"}], "-", 
          RowBox[{"41.`", " ", 
           SuperscriptBox["D", "10"], " ", "Y2"}], "-", 
          RowBox[{"60.`", " ", 
           SuperscriptBox["D", "11"], " ", "Y2"}], "-", 
          RowBox[{"51.`", " ", 
           SuperscriptBox["D", "12"], " ", "Y2"}], "-", 
          RowBox[{"50.`", " ", 
           SuperscriptBox["D", "13"], " ", "Y2"}], "-", 
          RowBox[{"31.`", " ", 
           SuperscriptBox["D", "14"], " ", "Y2"}], "-", 
          RowBox[{"20.`", " ", 
           SuperscriptBox["D", "15"], " ", "Y2"}], "-", 
          RowBox[{"9.`", " ", 
           SuperscriptBox["D", "16"], " ", "Y2"}], "-", 
          RowBox[{"3.`", " ", 
           SuperscriptBox["D", "17"], " ", "Y2"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "18"], " ", "Y2"}], "+", 
          RowBox[{"2.000000000000001`", " ", 
           SuperscriptBox["D", "5"], " ", "p", " ", "Y2"}], "+", 
          RowBox[{"4.000000000000002`", " ", 
           SuperscriptBox["D", "6"], " ", "p", " ", "Y2"}], "+", 
          RowBox[{"20.000000000000007`", " ", 
           SuperscriptBox["D", "7"], " ", "p", " ", "Y2"}], "+", 
          RowBox[{"30.000000000000004`", " ", 
           SuperscriptBox["D", "8"], " ", "p", " ", "Y2"}], "+", 
          RowBox[{"72.`", " ", 
           SuperscriptBox["D", "9"], " ", "p", " ", "Y2"}], "+", 
          RowBox[{"82.`", " ", 
           SuperscriptBox["D", "10"], " ", "p", " ", "Y2"}], "+", 
          RowBox[{"120.`", " ", 
           SuperscriptBox["D", "11"], " ", "p", " ", "Y2"}], "+", 
          RowBox[{"102.`", " ", 
           SuperscriptBox["D", "12"], " ", "p", " ", "Y2"}], "+", 
          RowBox[{"100.`", " ", 
           SuperscriptBox["D", "13"], " ", "p", " ", "Y2"}], "+", 
          RowBox[{"62.`", " ", 
           SuperscriptBox["D", "14"], " ", "p", " ", "Y2"}], "+", 
          RowBox[{"40.`", " ", 
           SuperscriptBox["D", "15"], " ", "p", " ", "Y2"}], "+", 
          RowBox[{"18.`", " ", 
           SuperscriptBox["D", "16"], " ", "p", " ", "Y2"}], "+", 
          RowBox[{"6.`", " ", 
           SuperscriptBox["D", "17"], " ", "p", " ", "Y2"}], "+", 
          RowBox[{"2.`", " ", 
           SuperscriptBox["D", "18"], " ", "p", " ", "Y2"}], "-", 
          RowBox[{"1.0000000000000004`", " ", 
           SuperscriptBox["D", "5"], " ", 
           SuperscriptBox["p", "2"], " ", "Y2"}], "-", 
          RowBox[{"2.000000000000001`", " ", 
           SuperscriptBox["D", "6"], " ", 
           SuperscriptBox["p", "2"], " ", "Y2"}], "-", 
          RowBox[{"10.000000000000004`", " ", 
           SuperscriptBox["D", "7"], " ", 
           SuperscriptBox["p", "2"], " ", "Y2"}], "-", 
          RowBox[{"15.000000000000002`", " ", 
           SuperscriptBox["D", "8"], " ", 
           SuperscriptBox["p", "2"], " ", "Y2"}], "-", 
          RowBox[{"36.`", " ", 
           SuperscriptBox["D", "9"], " ", 
           SuperscriptBox["p", "2"], " ", "Y2"}], "-", 
          RowBox[{"41.`", " ", 
           SuperscriptBox["D", "10"], " ", 
           SuperscriptBox["p", "2"], " ", "Y2"}], "-", 
          RowBox[{"60.`", " ", 
           SuperscriptBox["D", "11"], " ", 
           SuperscriptBox["p", "2"], " ", "Y2"}], "-", 
          RowBox[{"51.`", " ", 
           SuperscriptBox["D", "12"], " ", 
           SuperscriptBox["p", "2"], " ", "Y2"}], "-", 
          RowBox[{"50.`", " ", 
           SuperscriptBox["D", "13"], " ", 
           SuperscriptBox["p", "2"], " ", "Y2"}], "-", 
          RowBox[{"31.`", " ", 
           SuperscriptBox["D", "14"], " ", 
           SuperscriptBox["p", "2"], " ", "Y2"}], "-", 
          RowBox[{"20.`", " ", 
           SuperscriptBox["D", "15"], " ", 
           SuperscriptBox["p", "2"], " ", "Y2"}], "-", 
          RowBox[{"9.`", " ", 
           SuperscriptBox["D", "16"], " ", 
           SuperscriptBox["p", "2"], " ", "Y2"}], "-", 
          RowBox[{"3.`", " ", 
           SuperscriptBox["D", "17"], " ", 
           SuperscriptBox["p", "2"], " ", "Y2"}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "18"], " ", 
           SuperscriptBox["p", "2"], " ", "Y2"}]}], ")"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["D", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1.0000000000000009`"}], "-", 
          RowBox[{"2.0000000000000013`", " ", "D"}], "-", 
          RowBox[{"15.00000000000001`", " ", 
           SuperscriptBox["D", "2"]}], "-", 
          RowBox[{"24.000000000000007`", " ", 
           SuperscriptBox["D", "3"]}], "-", 
          RowBox[{"89.00000000000003`", " ", 
           SuperscriptBox["D", "4"]}], "-", 
          RowBox[{"116.00000000000003`", " ", 
           SuperscriptBox["D", "5"]}], "-", 
          RowBox[{"271.00000000000006`", " ", 
           SuperscriptBox["D", "6"]}], "-", 
          RowBox[{"292.`", " ", 
           SuperscriptBox["D", "7"]}], "-", 
          RowBox[{"459.`", " ", 
           SuperscriptBox["D", "8"]}], "-", 
          RowBox[{"416.`", " ", 
           SuperscriptBox["D", "9"]}], "-", 
          RowBox[{"444.`", " ", 
           SuperscriptBox["D", "10"]}], "-", 
          RowBox[{"344.`", " ", 
           SuperscriptBox["D", "11"]}], "-", 
          RowBox[{"250.`", " ", 
           SuperscriptBox["D", "12"]}], "-", 
          RowBox[{"162.`", " ", 
           SuperscriptBox["D", "13"]}], "-", 
          RowBox[{"81.`", " ", 
           SuperscriptBox["D", "14"]}], "-", 
          RowBox[{"40.`", " ", 
           SuperscriptBox["D", "15"]}], "-", 
          RowBox[{"14.`", " ", 
           SuperscriptBox["D", "16"]}], "-", 
          RowBox[{"4.`", " ", 
           SuperscriptBox["D", "17"]}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["D", "18"]}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1.`"}], "+", "p"}], ")"}], "3"]}], ")"}]}]}]}], 
   "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.528386327747105*^9, 3.528386486929785*^9, 3.528386560827115*^9, 
   3.5283866852529335`*^9, {3.528386735656622*^9, 3.528386777199495*^9}, 
   3.528386819569169*^9, 3.5283870510817986`*^9, 3.5283871016102877`*^9, 
   3.5283871809052267`*^9, 3.528387291854312*^9, 3.5283873948456926`*^9, 
   3.5283874878005185`*^9, {3.5283875533444753`*^9, 3.528387571440507*^9}, 
   3.528387626664604*^9, {3.5283883586576433`*^9, 3.5283883681736603`*^9}, 
   3.5283885376835575`*^9, 3.528388595481659*^9, 3.528388674932599*^9, 
   3.528809066041321*^9, 3.528809131062235*^9, 3.528809226986803*^9, {
   3.5288093702886553`*^9, 3.5288093894298887`*^9}, 3.528814010199029*^9}]
}, Open  ]]
},
WindowSize->{1165, 574},
WindowMargins->{{139, Automatic}, {Automatic, -16}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
FrontEndVersion->"7.0 for Microsoft Windows (64-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 92, 1, 31, "Input"],
Cell[640, 23, 94, 1, 31, "Input"],
Cell[CellGroupData[{
Cell[759, 28, 4804, 132, 292, "Input"],
Cell[5566, 162, 447, 12, 47, "Output"],
Cell[6016, 176, 523, 15, 47, "Output"],
Cell[6542, 193, 2440, 76, 95, "Output"],
Cell[8985, 271, 2440, 76, 95, "Output"],
Cell[11428, 349, 1762, 54, 56, "Output"],
Cell[13193, 405, 1760, 54, 56, "Output"],
Cell[14956, 461, 3757, 104, 86, "Output"],
Cell[18716, 567, 3757, 104, 86, "Output"],
Cell[22476, 673, 1884, 54, 53, "Output"],
Cell[24363, 729, 2109, 61, 53, "Output"],
Cell[26475, 792, 786, 24, 54, "Output"],
Cell[27264, 818, 3250, 93, 103, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30551, 916, 13119, 353, 600, "Input"],
Cell[43673, 1271, 911, 18, 47, "Output"],
Cell[44587, 1291, 987, 21, 47, "Output"],
Cell[45577, 1314, 2980, 84, 95, "Output"],
Cell[48560, 1400, 2978, 84, 95, "Output"],
Cell[51541, 1486, 2299, 62, 56, "Output"],
Cell[53843, 1550, 2299, 62, 56, "Output"],
Cell[56145, 1614, 4464, 114, 105, "Output"],
Cell[60612, 1730, 4464, 114, 105, "Output"],
Cell[65079, 1846, 2818, 72, 76, "Output"],
Cell[67900, 1920, 3052, 79, 76, "Output"],
Cell[70955, 2001, 2458, 64, 71, "Output"],
Cell[73416, 2067, 2667, 71, 71, "Output"],
Cell[76086, 2140, 10431, 272, 310, "Output"],
Cell[86520, 2414, 10429, 272, 310, "Output"],
Cell[96952, 2688, 7824, 209, 217, "Output"],
Cell[104779, 2899, 17231, 421, 383, "Output"],
Cell[122013, 3322, 2899, 80, 62, "Output"],
Cell[124915, 3404, 7229, 206, 132, "Output"],
Cell[132147, 3612, 15425, 398, 399, "Output"],
Cell[147575, 4012, 13356, 345, 304, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[160968, 4362, 25263, 650, 1047, "Input"],
Cell[186234, 5014, 963, 19, 47, "Output"],
Cell[187200, 5035, 1039, 22, 47, "Output"],
Cell[188242, 5059, 2870, 79, 85, "Output"],
Cell[191115, 5140, 2870, 79, 85, "Output"],
Cell[193988, 5221, 2512, 70, 47, "Output"],
Cell[196503, 5293, 2514, 70, 47, "Output"],
Cell[199020, 5365, 7908, 199, 201, "Output"],
Cell[206931, 5566, 7906, 199, 201, "Output"],
Cell[214840, 5767, 2136, 49, 52, "Output"],
Cell[216979, 5818, 2332, 55, 52, "Output"],
Cell[219314, 5875, 1977, 46, 52, "Output"],
Cell[221294, 5923, 2157, 52, 52, "Output"],
Cell[223454, 5977, 7892, 194, 228, "Output"],
Cell[231349, 6173, 7890, 194, 228, "Output"],
Cell[239242, 6369, 6988, 180, 199, "Output"],
Cell[246233, 6551, 6988, 180, 199, "Output"],
Cell[253224, 6733, 6869, 154, 117, "Output"],
Cell[260096, 6889, 7745, 189, 117, "Output"],
Cell[267844, 7080, 6368, 150, 117, "Output"],
Cell[274215, 7232, 7141, 185, 117, "Output"],
Cell[281359, 7419, 13953, 312, 252, "Output"],
Cell[295315, 7733, 11375, 257, 211, "Output"],
Cell[306693, 7992, 37380, 836, 710, "Output"],
Cell[344076, 8830, 76447, 1671, 1372, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
